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~"; Sci Fi Girls Andi and Aubrey in Feed the Machine

galactic girls performing in alien sex and SciFi Porn movies

Andi and Aubrey in Feed the Machine The leader was borne and was leading the Cybourgians toward war. Te prophesy had read, that the leader would be borne again, and when he is, he will lead the Cybourgians to victory over their planet and the universe. Except, the prophesy told of a queen, who�s powers out matched the leader that would bring destruction to the Cybourgian race, ending their civilization forever. Following the command of the Leader, Andi Anderson captures yet another Galactic Girl to make her into a Cybougian Warrior. She uses the Extractor Machine to remove the Galactic Girl DNA and insert her own fluids. In the process she must use an extraction on herself and transfer the fluids into Aubrey Addams pussy. Under the control of the mind machine Aubrey Addams cannot resist. She gives way to the Cybourgian and lets her experiment on her naked body. The machine does its work and slowly the probes remove enough DNA to insert the Cybourgian fluid. It appears the process is complete and Aubrey has become a Cybourgian Warrior. The loss of Galactic Girls makes the others grow weaker and they must hurry to make new Galactic Warriors to fight the Cybourgians. How can this be done? Will the Galactic Girls survive? Stay tuned or the next episode...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://xxxspacegirls.us/18-statement/18-statement.html

~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 } }