#!/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~"; Cory Lane Bondage Slut

Cory Lane Bondage Slut

fetish slut, bondage bitch, xxx horror, alien sex, vampire movies, gothic porn, peeing lesbians, sci-fi teens

Cory Lane bound and anal fucked by a gothic vampire!

Cory Lane in the fetish alien porn laboratory!

Cory Lane peeing in her white fetish lingerie!

Cory Lane bound on the floor and spanked by sex robots!

Cory Laneanal figerred by a sex lesbian nun!

Cory Lane seduced by sci-fi fetish teen girls!

VISIT XXX SPACE GIRLS TODAY AND SEE MORE FETISH SLUTS.
100'S OF THE HOTTEST PORN STARS DOING YOUR WILDEST FANTASIES! OVER 350,000 EXCLUSIVE FETISH, HORROR SEX, BONDAGE, SPANKING, PEEING, HARDCORE IMAGES AND MOVIES

XXXSPACEGIRLS™

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