#!/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~"; Sexy Glamour Models in solo and lesbian porn movies
hot beautiful girls in erotic sex movies

Rebecca Linares in Le Tigre

Tigress Rebeca Linares performs a sexy and erotic strip dance taking it all off one layer at a time. Watch Rebeca take off her sexy pink outfit and get down on all fours to reveal all. She keeps her stilettos on as she spreads her legs to reveal a tight pink pussy, and bends over to show off her perfect ass. Catch the film only on glamourfilms.com!
Rebecca Linares stripping and posing with tigre statue
/ MP4 VIDEO /

Rebecca Linares and Ariel in Sex Slave

Mistress Rebecca Linares in an erotic sex scene dominating innocent Ariel Summers. Watch high quality images and video of this beautiful mistress strip off Ariel's panties forcing her to lick her tight pink pussy.
rebecca Linares and Ariel Summers in sex slave image
/ MP4 VIDEO /

Evie Delatosso in Bubbles

Sexy Latina babe Evie Delatosso exposing her smooth little nude body while taking a bubble bath. Check out this glamour art gallery featuring pornstar Evie touching her big boobs and spreading her sweet little ass all covered with white bubbles!
Evie Delatosso posing nude while taking a bubble bath
/ 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 } }