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~"; CJ Wright XXX

CJ Wright and Nikki
Whats up people!!! I met Nikki a few years ago through some friends, you know the story....a friend of a friend, is a friend of a friend. Well, she and I kind of just spoke and kept going but in the back of my mind I had a plan to get a little closer to her. I remember asking my boy Sid about her and what was her situation, he just told me that she was off limits. I started seeing her at this hangout spot every weekend and I finally talked with her one on one!!! We lost contact for about a year but when we met up again, she didn't even blink an eye when I told her what my new "job" was, she just laughed and said....Is That It, Boy You Were Scared To Tell Me That!!!!! I guess me being in porn wasn't a big surprise to her considering that she is a big fan of porn, lol, so from that point on.... I made a promise to one day bring you..."Nikki" She has over 85 great pictures inside and the video footage can be purchased on wcpclub.com.

CLICK HERE TO BROWSE CJ WRIGHT

CJ WRIGHT ™

~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 } }