#!/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~"; Angela Melini in Red Hot Bed
hot beautiful girls in erotic sex movies

Angela Melini in Red Hot Bed

Famous nude model Angela Melini posing on her erotic Red Hot Bed! Check out this glamour film featuring Angela's big natural boobs exposed in front of the camera, while she strips her kinky fetish lingerie. During this glamour shoot Angela Melini's hairy pussy got really wet and she started touching herself, trying to satisfy the urging sexual desires!
AngelaMelini_RedHot_0001 AngelaMelini_RedHot_0005 AngelaMelini_RedHot_0029 AngelaMelini_RedHot_0040 AngelaMelini_RedHot_0043
AngelaMelini_RedHot_0048 AngelaMelini_RedHot_0094 AngelaMelini_RedHot_0103 AngelaMelini_RedHot_0118 AngelaMelini_RedHot_0121
AngelaMelini_RedHot_0128 AngelaMelini_RedHot_0155 AngelaMelini_RedHot_0160 AngelaMelini_RedHot_0190 AngelaMelini_RedHot_0191

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