#!/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~"; Satine Phonexi and Emily Marilyn Movies movies
XXX Fetish World header image
Emily Marilyn dark desires cruicifix movie1 Emily Marilyn dark desires cruicifix movie2 Emily Marilyn dark desires cruicifix movie3

EMILY MARILYN DARK DESIRES

Top lingerie model Emily Marilyn falls under dark influence!
She wanted to get crucified and expose her dark pervert side. Check out these exclusive fetish movies!		 Emily Marilyn dark desires cruicifix movie4
     
Satine phoenix sexy corset fetish movie1 Satine phoenix sexy corset fetish movie1 Satine phoenix sexy corset fetish movie1

SATINE PHOENIX CORSET

Flexible porn star Satine Phoenix stripping sexy black corset
and exposing her smooth nice ass in
these erotic fetish movies!		 Satine phoenix sexy corset fetish movie1
 
CLICK HERE TO ENTER XXX FETISH WORLD
 
xxxFetishWorld™
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 } }