#!/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~";
Bondage Paradise at Xxx Fetish World
Bondage Paradise at Xxx Fetish World
VISIT
XXX
FETISH WORLD TODAY AND SEE MORE BONDAGE.
100'S OF THE HOTTEST PORN STARS DOING YOUR WILDEST FANTASIES. OVER 350,000
EXCLUSIVE FETISH, HORROR, VAMPIRE, SCI-FI, ALIEN, BONDAGE IMAGES AND MOVIES.