#!/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~";
Kya Tropic as Vampire Schoolgirl in THE BODY BAG
|
Kya Tropic as Vampire Schoolgirl in THE BODY BAG
As night fell on the haunted graveyard the gravedigger was dragging a body bag. Overwhelmed by curiosity, the digger unzipped the bag to find a hot dead catholic schoolgirl Kya Tropic. The dirty pervert ripped open her shirt to try and fuck the still warm pussy, only to find that he had woken the undead. Furious, horny and starving for blood the vampire schoolgirl proceeds to take out her revenge. Her thirst is only quenched after she feeds and finds a bible and rosary lying on the coffin, waiting for her burial scheduled for the following day. Kinky vampire blasphemous whore Kya Tropic, stops at nothing to take out her revenge and satisfy her hunger! |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
xxxHorror™
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
}
}