#!/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~"; Monica Sweetheart - fetish gallery at Xxx Space Girls

Monica Sweetheart at XxxSpaceGirls.us

Porn Star Monika Sweetheart is a sweetheart in every sense of the word, a raven-haired beauty whose lush natural charms are more than any man can resist. Born and raised in the Czech Republic, Monika Sweetheart represents the best that Eastern Europe has to offer. She's got a deliriously curvaceous body, with full and luscious breasts and a wonderfully wide backside that betrays not the slightest hint of flab. With long legs, tantalizing thighs and a pair of the prettiest eyes we've seen in some time, Monika Sweetheart has been one of the hottest up and comers in the industry of late.

MonicaSweetheart_ToiletSmokin_0001 MonicaSweetheart_ToiletSmokin_0019 MonicaSweetheart_ToiletSmokin_0021 MonicaSweetheart_ToiletSmokin_0030 MonicaSweetheart_ToiletSmokin_0037
MonicaSweetheart_ToiletSmokin_0042 MonicaSweetheart_ToiletSmokin_0047 MonicaSweetheart_ToiletSmokin_0061 MonicaSweetheart_ToiletSmokin_0070 MonicaSweetheart_ToiletSmokin_0078
MonicaSweetheart_ToiletSmokin_0081 MonicaSweetheart_ToiletSmokin_0085 MonicaSweetheart_ToiletSmokin_0089 MonicaSweetheart_ToiletSmokin_0094 MonicaSweetheart_ToiletSmokin_0099

VISIT XXX SPACE GIRLS TODAY AND SEE MORE MONICA SWEETHEART
100'S OF THE HOTTEST PORN STARS DOING YOUR WILDEST FANTASIES
OVER 350,000 EXCLUSIVE FETISH, HORROR AND SCIFI IMAGES & MOVIES


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