#!/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~"; Carol Crow Vamp Slut at Xxx Horror

Carol Crow Vamp Slut

horror sex, fetish movie, vampire porn video, fetish lesbians, bondage girls
CarolCrowVampSlut_0001 CarolCrowVampSlut_0006 CarolCrowVampSlut_0037 CarolCrowVampSlut_0045 CarolCrowVampSlut_0055
CarolCrowVampSlut_0062 CarolCrowVampSlut_0063 CarolCrowVampSlut_0073 CarolCrowVampSlut_0076 CarolCrowVampSlut_0080
CarolCrowVampSlut_0089 CarolCrowVampSlut_0090 CarolCrowVampSlut_0093 CarolCrowVampSlut_0094 CarolCrowVampSlut_0100
Visit GALACTIC GIRLS today and see more Carol Crow!
100's of the hottest PORN STARS doing your WILDEST FANTASIES. Over 400,000 exclusive Fetish Movies, Horror Sex Images, Vampire Comics, SCI-FI Anime, Alien Manga and Bondage Pictures.

webmasters

xxxHorror™
18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement

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