#!/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~"; Mika Tan starring in...Bannana Attack

Mika Tan starring in...Bannana Attack

alien gang bang sex, vampire lesbian porn, fetish robot blowjobs and hentai babes attack
Mika Tan asian porn star and sci-fi girl teen babe sucking alien toys and performing horror sex acts fetish panties on space girl ass sci-fi assian teen ass
alien gang bang movies and horror sex episodes teen vampires and sci-fi lesbian babes centerfold models in pervert sci-fi porn action huge dildo sex teens hairy asian teen pussy
fetish banana sex vegitable fetish porn movie galleries banana teen masturbation asian teen at xxx space girls Mika Tan banana fucking images and movies
VISIT XXX SPACE GIRLS TODAY AND SEE MORE MIKA TAN.
100'S OF THE HOTTEST PORN STARS DOING YOUR WILDEST FANTASIES. OVER 350,000 EXCLUSIVE FETISH, HORROR, VAMPIRE, SCI-FI, ALIEN, BONDAGE IMAGES AND MOVIES.

webmasters

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