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~"; Sweet blonde teen Sara Monroe Seducing Her Big Black Cock Chauffeur

Sara Monroe Seducing Her Big Black Cock Chauffeur Rich blonde babe Sara Monroe was very bored and horny after a business trip. Her new black chauffer picked her up from the airport. She was gladly surprised to see a fine black man driving her limo and decided to seduce him. Big cock Johnny was shocked at first and tried to resist, scared he will lose his job. Sweet blonde girl Sara took off his pants and moaned when she saw his huge black dick. She put the huge cock in her mouth and...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 } }