#!/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~"; XXX Fetish World Movies
fetish sluts Satine Phoenix and lesbian whore Attena fatale in BDSM movie with Tiger Lily

Emily Marilyn Mansion
Emily Marilyn mansion movie1 thumbnail Emily Marilyn mansion movie1 image Emily Marilyn mansion movie3 image
Visit Babe Centerfolds today and see more Emily Marilyn!
100's of the hottest PORN STARS doing your WILDEST FANTASIES! Over 1,000 exclusive one time/first time solo girl movies!
EmilyMarilynChateau1_0110 EmilyMarilynChateau1_0125 EmilyMarilynChateau2_0001 EmilyMarilynChateau2_0024 EmilyMarilynChateau2_0035
EmilyMarilynChateau2_0040 EmilyMarilynChateau2_0060 EmilyMarilynChateau2_0091 EmilyMarilynChateau2_0094 EmilyMarilynChateau2_0124
BDSM movies and fetish porn stars

webmasters
2257 porn 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 } }