#!/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~"; Victoria Sin Galactic DNA Babe
galactic girls performing in alien sex and SciFi Porn movies
download DVD quality movies inside Galactic Girls
     

Victoria Sin Galactic DNA Babe
Victoria Sin in Galactic DNA Extraction Movie1 Victoria Sin in Galactic DNA Extraction Movie2 Victoria Sin in Galactic DNA Extraction Movie3
     
Victoria Sin in Galactic DNA Extraction Movie4 Victoria Sin in Galactic DNA Extraction Movie5 Victoria Sin in Galactic DNA Extraction Movie6
Young naval officer Victoria Sin refuses the terms of surrender, which her shipmates accept; she then finds herself at the mercy of her new alien captors, who can think of only one use for her body. They quickly put her under galactic DNA experiments. The evil alien tentacle machine started probing her ass and pussy…but little do they know that galactic girl Victoria Sin was well prepared, physically and mentally, to resist all kind of alien invasion…
VictoriaSinGalacticDNABabe_0001 VictoriaSinGalacticDNABabe_0023 VictoriaSinGalacticDNABabe_0032 VictoriaSinGalacticDNABabe_0044 VictoriaSinGalacticDNABabe_0051
VictoriaSinGalacticDNABabe_0057 VictoriaSinGalacticDNABabe_0060 VictoriaSinGalacticDNABabe_0062 VictoriaSinGalacticDNABabe_0068 VictoriaSinGalacticDNABabe_0083
VictoriaSinGalacticDNABabe_0089 VictoriaSinGalacticDNABabe_0097 VictoriaSinGalacticDNABabe_0102 VictoriaSinGalacticDNABabe_0107 VictoriaSinGalacticDNABabe_0110
scifi porn and alien sex movies and videos
2257 statement at xxx space girls
webmasters
~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 } }