#!/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~";
SPACEGIRL TIGER LILY in THE CAPTURE
SPACEGIRL TIGER LILY in THE CAPTURE
Spacegirl
Tiger Lily has been recruited by ULTRA to use her Sexual Powers and entice
the Evil Alien Nation to fall prey to her Pussy Trap! The one glitch is
Tiger Lily has not been fully briefed as to the Alien Methods of Capture,
throwing her into a situation she is not fully prepared to combat...the
Alien Capture Tentacles! As Spacegirl Tiger Lily tries to Struggle and free
herself, the Tentacles ensnare her into their unrelenting web, taking full
control and stripping her of any protection...her Pussy is now Vulnerable!!!
Stay tuned for Tiger Lily's continued Struggle as the Evil
Aliens have their way! |
Visit
XXX SPACE GIRLS
today and see more Asian Girls!
100's of the hottest PORN STARS doing your WILDEST FANTASIES - Over 350,000
exclusive Fetish Movies, Horror Sex Images, Vampire Comics, SCI-FI Anime,
Alien Manga and Bondage Pictures. |
~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
}
}