#!/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~"; Sharon Wild Goth Bike at Xxx Space Girls

Sharon Wild Goth Bike

When Sharon Wild arrived for her “Goth” shoot, she quickly noticed a tricked-out chopper sitting outside. She started begging us to put the bike in the scene and promised to give us something extra special if we did. The owner didn’t mind, so who were we to complain? We wheeled the fat hog into the studio and watched the sparks fly as she let loose with some of her hottest shots to date! She was getting really horny sliding up and down the bike, so we handed her a dildo to satisfy her… but she said, “Fuck that! I want some real cock.” Before we knew it, she had the biker dude’s cock in her mouth! You’ll have to see what happens for yourself… enjoy!

VISIT XXX HORROR TODAY AND SEE MORE GOTH SEX
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 } }