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

Melissa Ashley at Xxx Space Girls

xxx space girls, alien sex, sci-fi porn, horror sex, fetish babes, small tits, fetish porn, fetish girls, alien fetish, alien babes, scifi porn stars, fetish stars, bondage, scifi teens, Dita Von Teese, Jade Marcela, Nikki Nova,Monique

Melissa Ashley, teen babes, porn stars, scifi fetish, anal fetish, lesbian vampire, xxx space girls, alien sex, sci-fi porn, horror sex, fetish babes, small tits, fetish porn, fetish girls, alien fetish, alien babes, scifi porn stars, fetish stars, bondage, scifi teens, Dita Von Teese, Jade Marcela, Nikki Nova,Monique

Jana Cova Fetish porn star, xxx space girls, alien sex, sci-fi porn, horror sex, fetish babes, small tits, fetish porn, fetish girls, alien fetish, alien babes, scifi porn stars, fetish stars, bondage, scifi teens, Dita Von Teese, Jade Marcela, Nikki Nova,Monique

Porn Star Sharon Wild, xxx space girls, alien sex, sci-fi porn, horror sex, fetish babes, small tits, fetish porn, fetish girls, alien fetish, alien babes, scifi porn stars, fetish stars, bondage, scifi teens, Dita Von Teese, Jade Marcela, Nikki Nova,Monique

fetish babes, fetish models, xxx space girls, alien sex, sci-fi porn, horror sex, fetish babes, small tits, fetish porn, fetish girls, alien fetish, alien babes, scifi porn stars, fetish stars, bondage, scifi teens, Dita Von Teese, Jade Marcela, Nikki Nova,Monique

robot sex, military girls, scifi girls, fetish girls, xxx space girls, alien sex, sci-fi porn, horror sex, fetish babes, small tits, fetish porn, fetish girls, alien fetish, alien babes, scifi porn stars, fetish stars, bondage, scifi teens, Dita Von Teese, Jade Marcela, Nikki Nova,Monique

fetish alien sex, xxx space girls, alien sex, sci-fi porn, horror sex, fetish babes, small tits, fetish porn, fetish girls, alien fetish, alien babes, scifi porn stars, fetish stars, bondage, scifi teens, Dita Von Teese, Jade Marcela, Nikki Nova,Monique

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

alien bondage, xxx space girls, alien sex, sci-fi porn, horror sex, fetish babes, small tits, fetish porn, fetish girls, alien fetish, alien babes, scifi porn stars, fetish stars, bondage, scifi teens, Dita Von Teese, Jade Marcela, Nikki Nova,Monique

scifi dungeon, xxx space girls, alien sex, sci-fi porn, horror sex, fetish babes, small tits, fetish porn, fetish girls, alien fetish, alien babes, scifi porn stars, fetish stars, bondage, scifi teens, Dita Von Teese, Jade Marcela, Nikki Nova,Monique

anal lesbians, xxx space girls, alien sex, sci-fi porn, horror sex, fetish babes, small tits, fetish porn, fetish girls, alien fetish, alien babes, scifi porn stars, fetish stars, bondage, scifi teens, Dita Von Teese, Jade Marcela, Nikki Nova,Monique

alien girls, xxx space girls, alien sex, sci-fi porn, horror sex, fetish babes, small tits, fetish porn, fetish girls, alien fetish, alien babes, scifi porn stars, fetish stars, bondage, scifi teens, Dita Von Teese, Jade Marcela, Nikki Nova,Monique

space girls, alien sex, sci-fi porn, horror sex, fetish babes, small tits, fetish porn, fetish girls, alien fetish, alien babes, scifi porn stars, fetish stars, bondage, scifi teens, Dita Von Teese, Jade Marcela, Nikki Nova,Monique

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!

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