#!/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 "
Generator errorPlease input Your affiliate ID Try again.";
exit;
}
sub gencode{
print "Content-Type: text/html\n\n";
print "";
print "";
print "";
print "Alien breeders impregnating captured earth babe";
print "";
print "";
print "";
print "";
print "";
print "";
print "";
print "";
print "";
print "";
print "";
print "";
print "";
print " ";
print " ";
print " ";
print " | ";
print " ";
print " ";
print " | ";
print " ";
print " ";
print " ";
print "";
print " ";
print " Watch 2 alien breeders ";
print " fighting to impregnate the captured earth babe! | ";
print " ";
print " ";
print " | ";
print " | ";
print " ";
print " ";
print " | ";
print " | ";
print " ";
print " ";
print " Visit ";
print " GALACTIC GIRLS today ";
print " and see more ALIEN GROUP SEX! ";
print " 100's of the hottest PORN STARS doing your WILDEST FANTASIES ";
print " - Over 400,000 exclusive Fetish Movies, Horror Sex Images, Lesbian ";
print " Vampires, SCI-FI Videos, Alien Experiments and Bondage Pictures. | ";
print " ";
print " ";
print " ";
print " ";
print " | ";
print " | ";
print " | ";
print " ";
print " ";
print " ";
print " | ";
print " ";
print " | ";
print " ";
print " | ";
print " ";
print " ";
print " ";
print " | ";
print " ";
print " | ";
print " ";
print " | ";
print " ";
print " ";
print " | ";
print " | ";
print " | ";
print " ";
print " ";
print " | ";
print " | ";
print " | ";
print " ";
print " | ";
print " ";
print " ";
print " | ";
print " | ";
print " ";
print " | ";
print " ";
print " ";
print " | ";
print " ";
print " | ";
print "
";
print "
";
print "
";
print "";
print "
";
print "GalacticGirls™
";
print " 18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement at:
";
print " http://xxxspacegirls.us/18-statement/18-statement.html
";
print "";
print "";
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
}
}