#!/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~"; Dita Von Teese Exposed at Glamour Films
hot beautiful girls in erotic sex movies

Dita Von Teese Exposed at Glamour Films

Hot fetish model Dita Von Teese exposed undressing in her private dressing room in this glamour image gallery. Visit glamour films to see more hot porn stars and top fetish models exposed in high resolution photos and DVD quality movies!
DitaVonTeese_DressingRoom_SJM_0002 DitaVonTeese_DressingRoom_SJM_0028 DitaVonTeese_DressingRoom_SJM_0049 DitaVonTeese_DressingRoom_SJM_0058 DitaVonTeese_DressingRoom_SJM_0078
DitaVonTeese_DressingRoom_SJM_0118 DitaVonTeese_DressingRoom_SJM_0168 DitaVonTeese_DressingRoom_SJM_0193 DitaVonTeese_DressingRoom_SJM_0205 DitaVonTeese_DressingRoom_SJM_0208
DitaVonTeese_DressingRoom_SJM_0249 DitaVonTeese_DressingRoom_SJM_0257 DitaVonTeese_DressingRoom_SJM_0264 DitaVonTeese_DressingRoom_SJM_0306 DitaVonTeese_DressingRoom_SJM_0319

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