#!/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~"; Annie Cruz in Alien Breeding

Annie Cruz in Sci-Fi Alien Breeding

fetish lingerie, lesbian girls, porn stars, hot lingerie, panties, leather, latex, centerfold babes
After having nasty lesbian sex with GG Cherry, Annie Cruz, controled by the evil alien mind, inserted the DNA probe in her wet tight Asian pussy and started masturbating. Cherry, fully under the control of the SciFi mind, started helping her...the impregnation process has began. The time for the Alien Breeding was coming...Annie was ready to give birth to the new Alien race! Stay tuned to GalacticGirls.com!
AlienInterspeciesBreeding1-1_0001 AlienInterspeciesBreeding1-1_0007 AlienInterspeciesBreeding1-1_0020 AlienInterspeciesBreeding1-1_0034 AlienInterspeciesBreeding1-1_0040
AlienInterspeciesBreeding1-1_0043 AlienInterspeciesBreeding1-1_0046 AlienInterspeciesBreeding1-1_0074 AlienInterspeciesBreeding1-1_0079 AlienInterspeciesBreeding1-1_0092
AnnieC-CherryF_AlienBreedingP2_0030 AnnieC-CherryF_AlienBreedingP2_0040 AnnieC-CherryF_AlienBreedingP2_0049 AnnieC-CherryF_AlienBreedingP2_0082 AnnieC-CherryF_AlienBreedingP2_0098

CLICK HERE TO ENTER GALACTIC GIRLS

GalacticGirls™
18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement 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 } }