#!/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 in lesbian sex action at Glamour Films
hot beautiful girls in erotic sex movies

Anastasia Pierce and Ruby Luster Smoking Lesbos

Kinky fetish pornstars Anastasia Pierce and Ruby Luster smoking and touching each other in this foot fetish lesbian movie!
Anastasia Pierce and Ruby Luster smoking lesbian sluts
/ MP4 VIDEO /

Emily Marilyn and Miss Conduct Latex Dolls

Redhead fetish slut Miss Conduct dominating lingerie model Emily Marilyn in this latex lesbian glamour film!
Emily Marilyn and Miss Conduct latex Dolls
/ MP4 VIDEO /

Rebecca Linares Glamour Babe

Hot Spanish beauty Rebecca Linares stripping white stockings and exposing sweet nude body at GlamourFilms.com!
Rebecca Linares Glamour Babe
/ 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 } }