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~"; Sex Nun Kymberly Jane in the Call to Confession of Blasphemy

Nun Kymberly Jane in the Call to Confession Kymberly Jane, pure and beautiful came to her confession as summoned by the father. She had much to confess, and wondered if God, in fact forgave all sins. She started off slow, confessing that she had no desire to hide her hair; but according to the priest god forgave her. She then confessed of impure thoughts but again, forgiveness came with only a few Hail Mary�s. The nun confessed that under her robes she wore lingerie fit only for a slut, but still God was full of forgiveness. She wanted to know, if God would forgive all sins so she ripped at the bible and upon the realization that the priest had no intention of leaving her a sinner, she proceeded to take off all of her clothing. She tried inserting the religious...Read the whole story on XxxHorror.com!...

CLICK HERE TO ENTER XXX HORROR

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