#!/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~"; Raquel Devine Latex Slut

Raquel Devine Guns 'n' Cunt Forces

fetish world, xxx vampires, horror sex, alien porn, sci-fi fetish models, centerfold babes
raqueldevinegunns001 raqueldevinegunns006 raqueldevinegunns011 raqueldevinegunns014 raqueldevinegunns020
raqueldevinegunns028 raqueldevinegunns029 raqueldevinegunns032 raqueldevinegunns043 raqueldevinegunns044
raqueldevinegunns051 raqueldevinegunns052 raqueldevinegunns058 raqueldevinegunns059 raqueldevinegunns061
Visit XXX SPACE GIRLS today and see more Fetish Girls!
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.

webmasters

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