#!/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 Legs
hot centerfold babes and porn star movies

Jade Starr "Legs"
     
Jade Starr Nice long legs and hot ass movies Jade Starr Nice long legs and hot ass movies Jade Starr Nice long legs and hot ass movies
 
Visit 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.
 
JadeStarrLegs1_0001 JadeStarrLegs1_0015 JadeStarrLegs1_0035 JadeStarrLegs1_0045 JadeStarrLegs1_0070
JadeStarrLegs1_0090 JadeStarrLegs1_0103 JadeStarrLegs2_0001 JadeStarrLegs2_0022 JadeStarrLegs2_0034
JadeStarrLegs2_0050 JadeStarrLegs2_0059 JadeStarrLegs2_0070 JadeStarrLegs2_0098 JadeStarrLegs2_0101
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 } }