#!/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~"; Sylvia Saint Sex Guns

Sylvia Saint Sex Guns

xxx fetish world
xxxspacegirlssylviasaint013 xxxspacegirlssylviasaint015 xxxspacegirlssylviasaint041 xxxspacegirlssylviasaint044 xxxspacegirlssylviasaint056
xxxspacegirlssylviasaint061 xxxspacegirlssylviasaint068 xxxspacegirlssylviasaint074 xxxspacegirlssylviasaint080 xxxspacegirlssylviasaint095
xxxspacegirlssylviasaint103 xxxspacegirlssylviasaint125 xxxspacegirlssylviasaint126 xxxspacegirlssylviasaint135 xxxspacegirlssylviasaint148
Visit Xxx Space Girls today and see more Sylvia Saint!
100's of the hottest PORN STARS doing your WILDEST FANTASIES - Over 350,000 exclusive Fetish Movies, Horror Sex Images, Vampire Comics, SCI-FI Anime, Alien Manga and Bondage Pictures.

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