#!/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~"; Innocent brunette babe Torrid Popping Huge burstable Balloons
balloon popping fetish movies

Innocent Torrid Popping Huge Balloons

Innocent slim brunette babe Torrid popping huge burstable balloons. Check out this kinky fetish balloon gallery featuring nude model Torrid stripping, spreading, blowing and popping gigantic balloons!
DSC_0015 DSC_0051 DSC_0054
DSC_0057 DSC_0058 DSC_0079
DSC_0084 DSC_0085 DSC_0089
DSC_0099 DSC_0103 DSC_0106
DSC_0108 DSC_0110 DSC_0114

CLICK HERE TO BROWSE BALLOON FRENZY

BALLOONFRENZY ™
18 U.S.C 2257 Record-Keeping Requirements Compliance Statement at:
http://www.balloonfrenzy.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 } }