#!/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~"; Sexy Phat ass babe Vannah Sterling in kinky interracial anal sex
interracial group anal sex

Sexy Phat ass babe Vannah Sterling in kinky interracial anal sex

Big butt whitw babe Vannah Sterling in kinky interracial anal sex action, in her bathroom.
Vannah_026 Vannah_051 Vannah_060 Vannah_096 Vannah_117
Vannah_170 Vannah_189 Vannah_239 Vannah_244 Vannah_268
Vannah_272 Vannah_286 Vannah_309 Vannah_321 Vannah_324
         
CLICK HERE TO ENTER CJ WRIGHT XXX ANAL
 
 
Copyright: CJ WRIGHT XXX ANAL . COM
18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement at:
http://cjwrightxxxanal.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 } }