#!/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~"; Masuimi Max Cigar Fetish

Masuimi Max Cigar Fetish

xxx fetish world, bondage, spanking, pee, horror sex, dungeon
MasuimiMaxCigarFetish_0001 MasuimiMaxCigarFetish_0003 MasuimiMaxCigarFetish_0004 MasuimiMaxCigarFetish_0012 MasuimiMaxCigarFetish_0033
MasuimiMaxCigarFetish_0043 MasuimiMaxCigarFetish_0052 MasuimiMaxCigarFetish_0067 MasuimiMaxCigarFetish_0079 MasuimiMaxCigarFetish_0088
MasuimiMaxCigarFetish_0092 MasuimiMaxCigarFetish_0093 MasuimiMaxCigarFetish_0098 MasuimiMaxCigarFetish_0104 MasuimiMaxCigarFetish_0105
Visit Xxx Fetish World today and see more Fetish Girls.
100's of the hottest PORN STARS doing your WILDEST FANTASIES. Over 450,000 exclusive FETISH, HORROR, BONDAGE, DUNGEON, SPANKING, ASIAN IMAGES AND MOVIES.

XXXSPACEGIRLS™

~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 } }