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~"; Kinky fetish amateur tattoo babes popping big burstable balloons

Kinky fetish amateur tattoo babes popping big burstable balloons Kinky fetish babes with big and small boobs popping big burstable balloons, using cigarettes, pencills and other objects. Check out how these horny amateur tattoo girls pop the big innocent balloons with their hot and firm sexy asses, after which the balloon rubber stings their butts and makes them even more horny and wet...Read the whole story on MyBalloonPorn.com!


CLICK HERE TO ENTER MY BALLOON PORN


Copyright: MY BALLOON PORN. COM 18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement at: http://myballoonporn.com/2257.html

sexy tattoo babes popping huge porn balloons

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