#!/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~"; Aria Giovanni Golden Glamour

Aria Giovanni Golden Glamour

fetish babes, porn girls, fashion stars, top models
AriaGiovanniGoldenGlamour1_0001 AriaGiovanniGoldenGlamour1_0009 AriaGiovanniGoldenGlamour1_0037 AriaGiovanniGoldenGlamour1_0042 AriaGiovanniGoldenGlamour1_0048
AriaGiovanniGoldenGlamour1_0056 AriaGiovanniGoldenGlamour1_0061 AriaGiovanniGoldenGlamour1_0063 AriaGiovanniGoldenGlamour1_0069 AriaGiovanniGoldenGlamour1_0073
AriaGiovanniGoldenGlamour1_0074 AriaGiovanniGoldenGlamour1_0079 AriaGiovanniGoldenGlamour1_0080 AriaGiovanniGoldenGlamour1_0083 AriaGiovanniGoldenGlamour1_0090
Visit Galactic Girls today and see more Aria Giovanni!
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.

BabeCenterfolds™
18 U.S.C. 2257: http://xxxspacegirls.us/18-statement/18-statement.html

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