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~"; Sarah Vandella in Sci-Fi Tentacle Impregnation

galactic girls performing in alien sex and SciFi Porn movies

Sarah Vandella in Sci-Fi Tentacle Impregnation Sarah Vandella was captured and injected with a Trimon Egg. She was probed and experimented upon but each implantation failed. There was a missing element, Galactic Juice. After the capture if Sindee Jennings, the juice was finally collected and inserted into Sarah Vandella. Sarah was now pregnant with the Egg that would carry the first Trimon Alien in 80 years. The last step in the process was to put her under the control of the tentacle cave so that its sexual fluids could nourish Sarah from inside. Not remembering what has happened to her, or how she got there, Sarah felt...read the whole story on GalacticGirls.com!

CLICK HERE TO ENTER GALACTIC GIRLS

GalacticGirls™
18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement
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 } }