Generator error

#!/usr/bin/perl -T ###################### #��author:glisten # http://www.dsl-speed.org ###################### &get_form_data; &emptyid unless $FORM{'sid'}; $afid=$FORM{'sid'}; &gencode; sub emptyid{ $login_page="http://www.adultworldmedia.com"; # Replace to your affiliate program url print "Content-Type: text/html\n\n"; print <<"~EOT~"; Generator error Please input Your affiliate ID Try again. ~EOT~ exit; } sub gencode{ print "Content-Type: text/html\n\n"; print <<"~EOT~"; Sindee Jennings in the Breeding Machine

galactic girls performing in alien sex and SciFi Porn movies

Sindee Jennings in the Breeding Machine Watch Free Porn Trailer Sindee Jennings woke up from what she thought was a nap and found herself in a chair. The chair had devices attached to it, strange screws and probes on tentacle like arms. Being bound at the legs, Sindee had no chance of escape. She awoke to find an alien creature in front of her already in the process of undressing her. The machine took over her mind and she was forced to produce reproductive fluid for the Trimon Alien. The Trimon�s heard about the Cybourgians evil plan to create and army and extinguish all species but their own. They were determined to stop them, and with that they must produce enough human sex fluids to make alien babies. Sindee Jennings was chosen for the reproduction as she was able to produce large quantities of the precious fluids instantly when given proper stimulation. As the machine started to power up Sindee knew that her mission was to save the nearly...Read the whole story on GalacticGirls.com!

CLICK HERE TO ENTER GALACTIC GIRLS

GalacticGirls™
18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement at:
http://tracker.zombaio.com/?$afid.7876960

~EOT~ exit; } # Get form data sub get_form_data { read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); if ($ENV{'QUERY_STRING'}) { $buffer = "$buffer\&$ENV{'QUERY_STRING'}" } @pairs = split(/&/,$buffer); foreach $pair (@pairs) { ($name,$value) = split(/=/,$pair); $value =~ tr/+/ /; $value =~ s/\t//g; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; $FORM{$name} = $value } }