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~"; Estrella Flores Lost in the Evil Graveyard

Estrella Flores Lost in the Evil Graveyard Young inexperienced nun Estrella Flores got lost in the graveyard of the monastery. She was trying to help father Angelino to prepare the grave for a victim bitten by the evil vampire nun Evie Delatosso. The sun started to set and Estrella got scared. She sat on the ground to rest a little bit. She felt strange sexual desires and by coincidence she touched her pussy and found out that the pussy is very wet. Haven�t masturbated for years she started rubbing it and touching her tits and body. Check out this horrorsex flick featuring the first stage of the transform of nun Estrella into evil lesbian vampire!

CLICK HERE TO BROWSE 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 } }