#!/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~"; Daniella Rush Sex Slave

Daniella Rush Sex Slave

fetish slaves, sex bondage, dungein porn, xxx vampire, horror, gothic sluts, leather, latex
daniellarushsexslave002 daniellarushsexslave014 daniellarushsexslave016 daniellarushsexslave021 daniellarushsexslave034
daniellarushsexslave040 daniellarushsexslave044 daniellarushsexslave046 daniellarushsexslave060 daniellarushsexslave085
daniellarushsexslave101 daniellarushsexslave109 daniellarushsexslave120 daniellarushsexslave130 daniellarushsexslave133
Visit XXX Space Girls today and see more Daniella Rush!
100's of the hottest PORN STARS doing your WILDEST FANTASIES - Over 400,000 exclusive Fetish Movies, Horror Sex Images, Vampire Comics, SCI-FI Anime, Alien Manga and Bondage Pictures.

XXXSPACEGIRLS™

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