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~"; sexy Latina Michelle Avanti in interracial big dick hardcore with Rico

Michelle Avanti in interracial big dick hardcore with Rico Whats up people? Check out this tense interracial hardcore by Michelle Avanti and Rico. Hi end executive Michelle has ordered a male escort in her room, trying to relax during intense business trip to Los Angeles. She was taking a shower, when the big dick guy arrived. He decided to surprise Michele in the shower. Rico showed up naked with his huge dick sticking out. At first Michelle was shocked, but she really needed something big to...read the whole story on FuckMeBlack.com!




CLICK HERE TO ENTER FUCK ME BLACK


Copyright: FUCK ME BLACK . COM 2257 info at: http://fuckmeblack.com/2257.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 } }