#!/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~"; Angelina Sweet gets anal fucked by 2 male porn stars
hot space girl sex movies
Angelina Sweet gets fucked in ass and pussy by 2 big cocks movie1 Angelina Sweet gets fucked in ass and pussy by 2 big cocks movie2 Angelina Sweet gets fucked in ass and pussy by 2 big cocks movie3
Angelina Sweet gets fucked in ass and pussy by 2 big cocks movie4 Angelina Sweet gets fucked in ass and pussy by 2 big cocks movie5 Angelina Sweet gets fucked in ass and pussy by 2 big cocks movie6
 
Visit XXX SPACE GIRLS today and see more ANAL SEX!
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.
 
SciFi porn footer

webmasters

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