#!/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~";

<HTML>

<HEAD>

   <TITLE>Generator error</TITLE>

<META HTTP-EQUIV=Refresh CONTENT="2; URL=http://tbassflick.com">

</HEAD>

<BODY>Please input Your affiliate ID <a href=\"$login_page\">Try again.</a></BODY>

</HTML>



~EOT~

exit;

}



sub gencode{

print "Content-Type: text/html\n\n";

   print <<"~EOT~";





<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"

"http://www.w3.org/TR/html4/loose.dtd">

<html>

<HEAD>

<TITLE>Miss Lady fucked in the ASS</TITLE>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8">

<style type="text/css">

<!--

body {

	margin: 0px;

	padding: 0px;

	font-family: Verdana, Arial, Helvetica, sans-serif;

	font-size: 18px;

}



.tb-border {

	border-top: 4px none #FFFFFF;

	border-right: 4px dashed #FFFFFF;

	border-bottom: 4px dashed #FFFFFF;

	border-left: 4px dashed #FFFFFF;

}

.style23 {

	font-size: 30px;

	text-decoration: underline overline blink;

	font-family: Verdana, Arial, Helvetica, sans-serif;

	font-weight: bold;

}

td {

	color: #000000;

}

a:link {

	color: #990000;

}

a:visited {

	color: #FF0000;

}

a:hover {

	color: #660000;

}

a:active {

	color: #CC0000;

}

.copyright {

	font-family: Verdana, Arial, Helvetica, sans-serif;

	font-size: 12px;

	color: #FFFFFF;

}



-->

</style>

</HEAD>

<body bgcolor="#000000" text="#FFFFFF">



<table width="634" align="center" cellpadding="2" cellspacing="2" class="tb-border">

  <tr> 

    <th width="618" align="center" valign="top" scope="col"><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://www.tbassflick.com/index.php"><img src="../Black_Gum_White_Girls/images/tbassflick.jpg" alt="www.tbassflick.com" width="608" height="142" border="0"></a></th>

  </tr>

  <tr> 

    <th align="center" valign="top" bgcolor="#DAD6B0" scope="col"><TABLE width="618" border=0  align="center" cellpadding=2 cellspacing=2>

      <TR>

        <TD width="598" colspan="3" align="center"><h1>Miss Lady fucked in the ASS</h1>

          <p>Kinky fetish  slut Miss Lady dressed in fishnet outfit gets drilled hard in the ass by black  porn star LT. Check out this fishnet ass freak gallery ending with <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://www.handjobsalon.com/index.php">pervert ass  to mouth</a> cum-shot! This is another exclusive interracial sex episode shot for  TBassFlick.com!</p></TD>

        </TR>

      <TR>

        <TD align="center"><A href="images/IMG_4520.jpg"><IMG src="thumbnails/IMG_4520.jpg" height="270" width="180" alt="IMG_4520"></A></TD>

        <TD align="center"><A href="images/IMG_4536.jpg"><IMG src="thumbnails/IMG_4536.jpg" height="270" width="180" alt="IMG_4536"></A></TD>

        <TD align="center"><A href="images/IMG_4544.jpg"><IMG src="thumbnails/IMG_4544.jpg" height="270" width="180" alt="IMG_4544"></A></TD>

      </TR>

      <TR>

        <TD align="center"><A href="images/IMG_4560.jpg"><IMG src="thumbnails/IMG_4560.jpg" height="270" width="180" alt="IMG_4560"></A></TD>

        <TD align="center"><A href="images/IMG_4584.jpg"><IMG src="thumbnails/IMG_4584.jpg" height="270" width="180" alt="IMG_4584"></A></TD>

        <TD align="center"><A href="images/IMG_4608.jpg"><IMG src="thumbnails/IMG_4608.jpg" height="270" width="180" alt="IMG_4608"></A></TD>

      </TR>

      <TR>

        <TD align="center"><A href="images/IMG_4616.jpg"><IMG src="thumbnails/IMG_4616.jpg" height="270" width="180" alt="IMG_4616"></A></TD>

        <TD align="center"><A href="images/IMG_4654.jpg"><IMG src="thumbnails/IMG_4654.jpg" height="270" width="180" alt="IMG_4654"></A></TD>

        <TD align="center"><A href="images/IMG_4691.jpg"><IMG src="thumbnails/IMG_4691.jpg" height="270" width="180" alt="IMG_4691"></A></TD>

      </TR>

      <TR>

        <TD align="center"><A href="images/IMG_4699.jpg"><IMG src="thumbnails/IMG_4699.jpg" height="270" width="180" alt="IMG_4699"></A></TD>

        <TD align="center"><A href="images/IMG_4707.jpg"><IMG src="thumbnails/IMG_4707.jpg" height="270" width="180" alt="IMG_4707"></A></TD>

        <TD align="center"><A href="images/IMG_4715.jpg"><IMG src="thumbnails/IMG_4715.jpg" height="270" width="180" alt="IMG_4715"></A></TD>

      </TR>

      <TR>

        <TD align="center"><A href="images/IMG_4723.jpg"><IMG src="thumbnails/IMG_4723.jpg" height="270" width="180" alt="IMG_4723"></A></TD>

        <TD align="center"><A href="images/IMG_4731.jpg"><IMG src="thumbnails/IMG_4731.jpg" height="270" width="180" alt="IMG_4731"></A></TD>

        <TD align="center"><A href="images/IMG_4747.jpg"><IMG src="thumbnails/IMG_4747.jpg" height="270" width="180" alt="IMG_4747"></A></TD>

      </TR>

      



    </TABLE></th>

  </tr>

</table>

<p align="center"><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://www.tbassflick.com/index.php" class="style23">CLICK HERE TO BROWSE TBASSFLICK</a></p>

<div align="center">

  <p class="copyright">TBASSFLICK &#8482;<br>

    18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement:<br>

http://tbassflick.com/2257.html</p>

</div>

</body>

</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

	}

}



