#!/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~"; Kelly Wells :: Fetish Movies :: Nicole BTS Clips
fetish sluts Satine Phoenix and lesbian whore Attena fatale in BDSM movie with Tiger Lily
Kelly Wells in Nasty smoke fetish movie thumbnail Kelly Wells in Nasty smoke fetish movie thumbnail Kelly Wells in Nasty smoke fetish movie thumbnail

Kelly Wells Nasty Smoke

Hot fetish slut Kelly Wells stripping black leather, spreading, fingering and fisting
in these smoking fetish movie clips!		 Kelly Wells in Nasty smoke fetish movie thumbnail
porn star Nicole in squirting BTS movies movies porn star Nicole in squirting BTS movies movies porn star Nicole in squirting BTS movies movies

Nicole in Fetish BTS Clips

Nasty amateur babe Nicole toying and exposing her kinky side in those solo BTS movies!		 porn star Nicole in squirting BTS movies movies
     
CLICK HERE TO ENTER XXX FETISH WORLD
 
 
BDSM movies and fetish porn stars
2257 porn 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 } }