#!/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~"; Nikki at Xxx Space Girls

Young & Cute Nikki at XxxSpaceGirls.us

Porn Star Nikki Fetish babe scifi model Nikki fetish girls vampire lesbians, Nikki
dildo lesbian alien babe Nikki bondage girl xxx horror teen babe
VISIT XXX SPACE GIRLS TODAY AND SEE MORE NIKKI
100'S OF THE HOTTEST PORN STARS DOING YOUR WILDEST FANTASIES
OVER 350,000 EXCLUSIVE FETISH HORROR AND SCIFI IMAGES & MOVIES
sci-fi teen babe teen hardcore horror sex fetish model vampire sex
evil space girls spanking fetish anal fetish hentai babe alien porn
XXX FETISH WORLD - IF YOU WANT SOME SERIOUS PORN
AND ARE SICK OF ALL THE SAME CRAP I WOULD SUGGEST YOU
CHECK OUT THIS SITE RIGHT NOW! 100'S OF HOT FETISH MODELS!
horror porn hentai anime comic porn teen sex military babe

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