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~"; tattoo babe Daisy Tanks in First Holy Communion

Daisy Tanks in First Holy Communion The first Communion, the holiest of rituals was to take place on the say of Sabbath in the old church. Spanish father Ricardo was awaiting his young woman to come and receive the body and blood of Christ. She came dressed in white as the bride of god, pure and holy in the eyes of the father. What he did not know, was that the bride of Christ held a demon inside her full of hatred for the father and the church. She lashed out at the priest and...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 } }