#!/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!
Dita Von Teese Noir Movie Dita Von Teese Noir Movie Dita Von Teese Noir Movie Dita Von Teese Noir Movie Daisy marie Window Light erotica
Daisy marie Window Light erotica Jewell Marceau in black latex fetish movie Jewell Marceau in black latex fetish movie Jewell Marceau in black latex fetish movie Jewell Marceau in black latex fetish movie

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