#!/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~"; Glamour Films
hot beautiful girls in erotic sex movies
Welcome to Glamour Films! We offer HD erotic movies, nude art and fine photography. Our weekly updated site offers top porn stars and centerfold models captured in sensuous, professional, dazzling videos and photos of the highest aesthetic quality! All our movies are downloadable in the following formats: WMV, MP4, MP4 for iPOD. Inside the member area you can find high resolution photos (2000 pixels) of Dita Von Teese, Aria Giovanni, Angela Melini, Tall Goddess, Jana Cova, Zdenka Podkapova and many more Glamour Babes and top fetish models. Enjoy!
Anastasia and Jewell fetish reflections Anastasia and Jewell fetish reflections Anastasia and Jewell fetish reflections Anastasia and Jewell fetish reflections Daisy marie Window Light erotica
Daisy marie Window Light erotica Angela Ryan glamour babe Angela Ryan glamour babe Angela Ryan glamour babe Angela Ryan glamour babe

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