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~"; Fetish Looner babe Kendra James in Party Escape

Fetish Looner babe Kendra James in Party Escape Sweet looner girl Kendra went to a cocktail party. The party was boring and the fetish babe was standing on the side and sipping from her drink, while imagining blowing and popping colorful balloons. Her pussy got wet and she needed to escape for 5 minutes. The looner girls saw an empty room full with balloons. She got inside and locked the door quickly. Kendra sat on the couch and started playing with the balloons trying not...Read the whole story on MyBalloonPorn.com!




CLICK HERE TO ENTER MY BALLOON PORN


Copyright: MY BALLOON PORN. COM 2257 info at: http://myballoonporn.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 } }