#!/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~"; Rebecca Linares Satan's Slut

Rebecca Linares Satan's Slut

horror sex, fetish movie, vampire porn video, fetish lesbians, bondage girls
Hot Porn Star Rebecca Linares Cums to our Evil Lair to display her LUST for the DARK ARTS! Her pussy is dripping with anticipation of entering the Demonic World of Satan as she begins to temp him through Ritualistic Heresy! As a Porn Star Rebecca Linares believes she has seen everything the Sexual World has to offer…she is not ready for the next wild SATANIC ENCOUNTER!!!
RebeccLinaresElDiablo1_0006 RebeccLinaresElDiablo1_0016 RebeccLinaresElDiablo1_0035 RebeccLinaresElDiablo1_0046 RebeccLinaresElDiablo1_0054
RebeccLinaresElDiablo1_0063 RebeccaLinaresElDiablo2_0001 RebeccaLinaresElDiablo2_0006 RebeccaLinaresElDiablo2_0009 RebeccaLinaresElDiablo2_0018
RebeccaLinaresElDiablo2_0038 RebeccaLinaresElDiablo2_0054 RebeccaLinaresElDiablo2_0056 RebeccaLinaresElDiablo2_0071 RebeccaLinaresElDiablo2_0092
Visit SPACE GIRLS today and see more Horror Sex!
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 } }