#!/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~"; Rebecca Linares Extreme Galactic

Rebecca Linares Extreme Galactic

wild girls, galactic sex, alien porn movie, BDSM slut
RebecaLinaresExtremeGalactic1_0001 RebecaLinaresExtremeGalactic1_0035 RebecaLinaresExtremeGalactic1_0057 RebecaLinaresExtremeGalactic1_0065 RebecaLinaresExtremeGalactic1_0089
RebecaLinaresExtremeGalactic2_0001 RebecaLinaresExtremeGalactic2_0023 RebecaLinaresExtremeGalactic2_0049 RebecaLinaresExtremeGalactic2_0065 RebecaLinaresExtremeGalactic2_0080
RebecaLinaresGalacticExtreme3_0003 RebecaLinaresGalacticExtreme3_0034 RebecaLinaresGalacticExtreme3_0047 RebecaLinaresGalacticExtreme3_0066 RebecaLinaresGalacticExtreme3_0086
Visit Space Girls today and see more Rebecca Linares!
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

GalacticGirls™
18 U.S.C. 2257 at: 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 } }