#!/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~"; Jade Starr in Blue Dream
hot centerfold babes and porn star movies

Jade Starr in Blue Dream
     
Jade Starr in Blue Movie1 Jade Starr in Blue Movie2 Jade Starr in Blue Movie3
 
Visit XXX SPACE GIRLS today and see more JADE STARR!
100's of the hottest PORN STARS doing your WILDEST FANTASIES - Over 400,000 exclusive Fetish Movies, Horror Sex Images, Vampire Comics, SCI-FI Anime, Alien Manga and Bondage Pictures.
 
JadeStarrBlueDream1_0001 JadeStarrBlueDream1_0006 JadeStarrBlueDream1_0016 JadeStarrBlueDream1_0026 JadeStarrBlueDream1_0045
JadeStarrBlueDream1_0053 JadeStarrBlueDream1_0060 JadeStarrBlueDream1_0062 JadeStarrBlueDream1_0069 JadeStarrBlueDream1_0080
JadeStarrBlueDream1_0082 JadeStarrBlueDream1_0089 JadeStarrBlueDream1_0093 JadeStarrBlueDream1_0099 JadeStarrBlueDream1_0100
top fetish models performing in porn star movies and videos
webmasters

BabeCenterfolds™
18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement

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