#!/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~"; Bobbi Barrington Horror Art

Bobbi Barrington Horror Art

horror sex, fetish movie, vampire porn video, fetish lesbians, bondage girls
BobbiBarringtonHorrorArt_0005 BobbiBarringtonHorrorArt_0010 BobbiBarringtonHorrorArt_0035 BobbiBarringtonHorrorArt_0047 BobbiBarringtonHorrorArt_0058
BobbiBarringtonHorrorArt_0064 BobbiBarringtonHorrorArt_0070 BobbiBarringtonHorrorArt_0073 BobbiBarringtonHorrorArt_0092 BobbiBarringtonHorrorArt_0095
BobbiBarringtonHorrorArt_0098 BobbiBarringtonHorrorArt_0107 BobbiBarringtonHorrorArt_0148 BobbiBarringtonHorrorArt_0169 BobbiBarringtonHorrorArt_0180
Visit GALACTIC GIRLS today and see more Bobbi Barrington!
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 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 } }