#!/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~"; She Devil Vixen Cow Ghoul

She Devil Vixen Cow Ghoul

She Devil Vixen is a wild, sex crazed Ghoul looking to capture her next Piece of ASS! This Devilishly Hot Babe likes to grab and seduce other Hot Snatches and uses all of her Pussy and Weapon Power to satisfy her never ending Lust! She can get quite Nasty when she wants to Play and CUM!!!
xx fetish world exclusive sci-fi fetish, alien bondage, vampire peeing, hentai spanking and alien porn perversion movies.
She Devil Vixen Cow Ghoul gun masturbation, witch porn, gothic babe goth sex, gothic porn, goth vamp, wild vamp sex small fetish tits cow girl sex, fetish lingerie
She Devil Vixen spreads her long smooth legs and uncovers her sweet snatch and fetish ass teeny tits, porn area, small breasts, fetish spanking fetish masturbation, vampire sapnking and peeing girls vampire wars, and gothic sluts fetish slut, sci-fi fetish model
gun sex, laser masturbation, BDSM, fisting with guns ass spread, anal lover, anal fetish ass spanking, smooth round sci-fi ass dildo sex lesbians, dilso porn, toy insertions finger porn, fetish fingers, foot fetish vampire girl
Visit XXX HORROR today and see more FETISH PORN. 100'S of the hottest PORN STARS doing your WILDEST FANTASIES…Over 350,000 exclusive FETISH, HORROR, SCI-FI, BDSM, VAMPIRE SEX, HENTAI, LESBIAN, PEEING, SPANKING images and movies.

webmasters

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