#!/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~"; Pornstar Babes Posing and in lesbian sex action at Glamour Films
hot beautiful girls in erotic sex movies

Rebecca Linares Alley Slut

Hot skinny porn star babe Rebecca Linares posing as a back alley whore in this erotic flick.
Rebecca Linares Alley Slut
/ MP4 VIDEO /

Mika Tan and Ashley Renee in Pantyhose Bound

Kinky fetish lesbian babes Mika Tan and Ashley Renee dominating each other in this bondage film. Check out this wild lesbian sex movie and pictures featuring BDSM and dildo sex action! Stay tuned to Glamour Films!
Mika Tan and Ashley Renee in pantyhose glamour bound
/ MP4 VIDEO /

Darenzia in Sexy Soviet Latex

Glamour chick Darenzia stripping sexy soviet era latex corset trying to seduce the CIA officer.
pornstar Darenzia in sexy fetish soviet latex
/ MP4 VIDEO /

Emily Marilyn is Vampy in Black

Fetish lingerie model Emily Marilyn showed up for a horror-sex shoot in our secret studio location. At some point she realized that she was too scared to complete the scene, so we shot this erotic, seductive latex movie instead. She promised to come back in the next couple of weeks and finish the extreme vampire sex movie started in December/2008. Stay tuned to GlamourFilms.com!
fdetish star Emily marilyn is vampy in black
/ 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 } }