#!/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


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 horror, top porn babes, hot new babes, hot fetish girls, hot porn stars, beautiful teens

anal teens, teen lesbians, lesbian vampires, blood sucking teen vampires, satan facial, scifi teen

xxx fetish, fetish lesbians, fetish aliens, fetish gallery, fetish anime

fetish chain, lingerie, xxx horror, dungeon, leather, latex, fetish movies, porn star movies and videos

scifi movies, space porn, space fisting, sci-fi fisting, dildo hentai sex, dildo lesbians, fetish dildo

sex toys, scifi toys, anal toys, anal alien, gothic chick, goth bondage, horror bondage scenes

full length movie scenes, alien hardcore, scifi hardcore, asian babes, latina babes, asian hardcore, asian porn

porn star, porn star list, porn star movies, porn star pictures

young naked girl, nude babes, alien nude, sci-fi beauty, comic porn, comic sex

scifi layouts, feature girls, beautiful leg, image vault, babe centerfolds, fetish gallery, hardcore gallery, xxx hentai babes, live sex shows, xxx movie theatre

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