#!/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~"; Kinky fetish pornstars posing nude teasing and masturbating at Glamour Films
hot beautiful girls in erotic sex movies

Sabrina Rose baby Doll

Blond Playboy cyber-girl babe Sabrina Rose teasing in kimky lace. This is one of the last movies sabrina did before ending her modeling career and going back to college.
Sabrina Rose Baby Doll
/ MP4 VIDEO /

Darenzia in Leopard Latex

Top fetish nude model Darenzia posing in erotic leopard latex, teasing and spreading. This is one of the rare movies where you can see darenzia spreading her pussy.
Darenzia in leopard latex
/ MP4 VIDEO /

Evie Delatosso in sexual smoke

Kinky sweet Latina Evie Delatosso masturbating and smoking in this dildo sex art movie.
Evie Delatosso smoking and masturbating
/ MP4 VIDEO /

GlamourFilms™
18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement:
http://glamourfilms.com/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 } }