#!/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~"; Cj Wright presents Red and Victoria
CJ Wright's BBW hardcore interracial sex

Red and Victoria

I found a nice place for a woman to explore some deep untouched desires and never be judged.....by her husband! I asked red what would be one of her deepest secrets and sexual temptations, she said......Victoria! This video is interesting, I'd like to hear what you think about it, so hit me up!
RedVictoriaGroup_001 RedVictoriaGroup_028 RedVictoriaGroup_031
RedVictoriaGroup_038 RedVictoriaGroup_045 RedVictoriaGroup_060
RedVictoriaGroup_063 RedVictoriaGroup_064 RedVictoriaGroup_065
RedVictoriaGroup_077 RedVictoriaGroup_081 RedVictoriaGroup_082
RedVictoriaGroup_094 RedVictoriaGroup_102 RedVictoriaGroup_104

CLICK HERE TO BROWSE CJ WRIGHT XXX

Copyright: CJ WRIGHT XXX . COM

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