#!/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~"; THE TURNING staring Kendra James and Mina Meow

THE TURNING staring Kendra James and Mina Meow

fetish lingerie, lesbian girls, porn stars, hot lingerie, panties, leather, latex, centerfold babes
Innocent vampire maiden Mina Meow was trapped in the horror castle after a late night party. The next day she was waken up by the quiet steps of a newly turned vampire lesbian Kendra James. At first Mina was scared, but her dark sexual desires overcame the fear and pushed her into hot lesbian action. She even did not noticed when she was turned...stay tuned to Xxx Horror!
KendraJames-MinaMeow_TheTurning_0015 KendraJames-MinaMeow_TheTurning_0035 KendraJames-MinaMeow_TheTurning_0057 KendraJames-MinaMeow_TheTurning_0060 KendraJames-MinaMeow_TheTurning_0079
KendraJames-MinaMeow_TheTurning_0095 KendraJames-MinaMeow_TheTurning_0118 KendraJames-MinaMeow_TheTurning_0132 KendraJames-MinaMeow_TheTurning_0135 KendraJames-MinaMeow_TheTurning_0177
KendraJames-MinaMeow_TheTurning_0191 KendraJames-MinaMeow_TheTurning_0193 KendraJames-MinaMeow_TheTurning_0208 KendraJames-MinaMeow_TheTurning_0218 KendraJames-MinaMeow_TheTurning_0260


xxxHorror™
18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement at:
http://xxxspacegirls.us/18-statement/18-statement.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 } }