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~"; Galactic Girls Fetish Movies

Sharon Wild and Amber Michaels in Hot Lesbian BTS Movies

Amber Michaels and Sharon Wild have been transported to the Alien Sexual Training Facility after their Sex Play Orgasm! As their Pussies are still Hot and Wet, they become the willing victims of EXTRATERRESTRIAL MIND CONTROL forcing them to begin their ALIEN SEX TRANSFORMATION!

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