#!/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~"; Anastasia Pierce in Latex Maid
XXX Fetish World header image
Anastasia Pierce in Latex Maid movie1 Anastasia Pierce in Latex Maid movie2 Anastasia Pierce in Latex Maid movie3

ANASTASIA IN LATEX MAID

Fetish porn slut Anastasia Pierce posing in black latex outfit, fingering ass and pussy!
 
AnastasiaPierceLatexMaid_0001 thumbnail AnastasiaPierceLatexMaid_0013 thumbnail AnastasiaPierceLatexMaid_0030 thumbnail AnastasiaPierceLatexMaid_0035 thumbnail AnastasiaPierceLatexMaid_0049 thumbnail
AnastasiaPierceLatexMaid_0053 thumbnail AnastasiaPierceLatexMaid_0066 thumbnail AnastasiaPierceLatexMaid_0071 thumbnail AnastasiaPierceLatexMaid_0081 thumbnail AnastasiaPierceLatexMaid_0095 thumbnail
AnastasiaPierceLatexMaid_0099 thumbnail AnastasiaPierceLatexMaid_0101 thumbnail AnastasiaPierceLatexMaid_0108 thumbnail AnastasiaPierceLatexMaid_0124 thumbnail AnastasiaPierceLatexMaid_0128 thumbnail
 
CLICK HERE TO ENTER XXX FETISH WORLD
 
 
~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 } }