#!/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~"; Swan Pee Play gallery at Xxx Space Girls

Swan Pee Play

SWAN burst onto the Adult scene in November, 2000. She has numerous Adult video titles to her credit including: Private Performance and Barely Legal. SWAN recently debuted as a Hustler Honey and she graced the cover of Hustler Magazine (March 2002). SWAN continues persuing her career as a makeup artist in the greater Los Angeles Area. She enjoys traveling, reading, and snowboarding. See more of Sexy Swan at www.XXXFetishWorld.com.

VISIT XXX SPACE GIRLS TODAY AND SEE MORE FETISH MODELS
100'S OF THE HOTTEST PORN STARS DOING YOUR WILDEST FANTASIES
OVER 350,000 EXCLUSIVE FETISH, HORROR, SCIFI IMAGES AND MOVIES

XXXSPACEGIRLS™

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