#!/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~"; Evie Delatosso in the Art of Smoking
fetish sluts Satine Phoenix and lesbian whore Attena fatale in BDSM movie with Tiger Lily
Evie Delatosso in fetish smoke art Evie Delatosso in fetish smoke art Evie Delatosso in fetish smoke art

Evie Delatosso in The Art of Smoking

Hot Latina porn star babe Evie Delatosso in The Art of Smoking, performing exclusively for Glamour Films.		 Evie Delatosso in fetish smoke art
     
CLICK HERE TO ENTER XXX FETISH WORLD
 
 
BDSM movies and fetish porn stars
18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement at: http://xxxspacegirls.us/18-statement/18-statement.html
~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 } }