#!/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~"; Venus Rubber Sex Nun Gallery at Xxx Space Girls

Venus Rubber Sex Nun Gallery

The Hot Nun, Venus, has been chased into the Evil Dungeon by the Howling Hounds of Hell! Feeling safe this Hot Nun Venus is overtaken with the urge to Rub and Finger her Hot Wet Pussy! Unaware that the Psycho Caretaker has been watching her, she is fully freaked when he makes his move to Capture and Torture her…Stay tuned, as this Hot Nun becomes the Plaything of Evil!!!

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

webmasters

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