#!/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~"; Porn star Victoria Sin Crucified

Victoria Sin "The Crucifix"

horror sex, fetish movie, sex vampire, porn lesbians, gothic sluts
Victoria Sin is leaving a club one night when she is involved in an accident that knocks her unconscious. When she comes to she has been transported eleven years into the future. The environment is recognizable as Los Angeles, but not the LA she knows... She has to choose between staying in this new LA or returning to her own time, Crucifix lane, the place where she arrived in the future, could either be the gateway back to her time or the place she decides to leave her old life behind forever…Stay tuned for Part2 and the Crucifix Movie.
VictoriaSinTheCrucifixx1_0001 VictoriaSinTheCrucifixx1_0016 VictoriaSinTheCrucifixx1_0040 VictoriaSinTheCrucifixx1_0048 VictoriaSinTheCrucifixx1_0080
VictoriaSinTheCrucifixx1_0090 VictoriaSinTheCrucifixx1_0109 VictoriaSinTheCrucifixx2_0034 VictoriaSinTheCrucifixx2_0072 VictoriaSinTheCrucifixx2_0087
VictoriaSinTheCrucifixx2_0090 VictoriaSinTheCrucifixx2_0100 VictoriaSinTheCrucifixx2_0109 VictoriaSinTheCrucifixx2_0120 VictoriaSinTheCrucifixx2_0121
Visit Space Girls today and see more Fetish Babes!
100's of the hottest PORN STARS doing your WILDEST FANTASIES - Over 400,000 exclusive Fetish Movies, Horror Sex Images, Vampire Lesbians, SCI-FI Porn Videos, Alien Experiments 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 } }