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~"; SILVIA SAINT in DNA Sex Machine

galactic girls performing in alien sex and SciFi Porn movies

SILVIA SAINT in DNA Sex Machine Overwhelmed by the evil alien power Angela Melini arrived too late to rescue the fellow spacegirl Sylvia Saint. The alien sex machine has started the precious DNA fluid extraction. Nasty alien breeders were guarding the facility. Angela had to call for backup. The Galactic Girl council gathered on Planet Pussea and decided to send a new undercover agent! Stay tuned to GalacticGirls.com!...

scifi porn and alien sex movies and videos

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