#!/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~"; Paris and Natali in Military Discipline

Paris and Natali in Military Discipline

horror sex, fetish movie, vampire porn video, fetish lesbians, bondage girls
Paris Kennedy was aware of nothing but the lambent flames in her mistress's eyes as she was led, unresisting, into the center of the military dungeon. Surrender was surely not enough; she must plunge joyfully without any thought of survival into that maelstrom of fiery passion, losing herself in the exquisite agony of the consummation that was about to take place…
ParisNataliMilitaryDiscipline_0001 ParisNataliMilitaryDiscipline_0006 ParisNataliMilitaryDiscipline_0013 ParisNataliMilitaryDiscipline_0034 ParisNataliMilitaryDiscipline_0035
ParisNataliMilitaryDiscipline_0050 ParisNataliMilitaryDiscipline_0057 ParisNataliMilitaryDiscipline_0072 ParisNataliMilitaryDiscipline_0075 ParisNataliMilitaryDiscipline_0077
ParisNataliMilitaryDiscipline_0092 ParisNataliMilitaryDiscipline_0100 ParisNataliMilitaryDiscipline_0110 ParisNataliMilitaryDiscipline_0115 ParisNataliMilitaryDiscipline_0125
Visit Xxx Space Girls today and see more Fetish Girls!
100's of the hottest PORN STARS doing your WILDEST FANTASIES - Over 400,000 exclusive Fetish Movies, Horror Sex Images, Vampire Lesbians, SCI-FI Porn Videos, Alien Experiments and Bondage Pictures.

webmasters

xxxHorror™
18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement

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