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 babes blowing and popping big balloons with their asses

Kinky fetish amateur babes blowing and popping big balloons with their asses Kinky fetish small boob babes popping big burstable balloons with their tight hot asses. Check out how these amateur girls blow the big innocent balloons and then sit on them trying to pop them.Very often the balloon rubber stings their butts, which makes the girls very horny and wet...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

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