#!/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=index.html">

</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 XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

<title>Aria Giovanni in Golden Glamour</title>



<link href="../../GF.css" rel="stylesheet" type="text/css" />



</head>

<body>



<table width="800" border="0" align="center" cellpadding="0" cellspacing="0" id="Table_01">

<tr>

		<td>

			<a href="http://tracker.zombaio.com/?$afid.7876964"><img src="../../../images/TGP2.jpg" alt="hot beautiful girls in erotic sex movies" width="800" height="351" border="0" /></a></td>

  </tr>

	<tr>

		<td class="TGP-table"><table width="695" border="0"  align="center" cellpadding="5" cellspacing="5">

          <tr>

            <td colspan="5" align="center"><h1>Aria Giovanni in Golden Glamour</h1>

            Big boob pornstar babe Aria Giovanni posing and striping  between two golden pillars. Check out this hot nude body and <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://xxxhorror.com/index.php">big creamy boobs</a>  exposed on GlamourFilms.com. As a bonus Aria Giovanni bends over and spreads her firm  sweet ass tearing apart her sexy fetish lingerie!</td>

          </tr>

          <tr>

            <td align="center"><a href="images/AriaGiovanni_Pillars_0001.jpg"><img src="thumbnails/AriaGiovanni_Pillars_0001.jpg" height="200" width="133" alt="AriaGiovanni_Pillars_0001" /></a></td>

            <td align="center"><a href="images/AriaGiovanni_Pillars_0005.jpg"><img src="thumbnails/AriaGiovanni_Pillars_0005.jpg" height="200" width="133" alt="AriaGiovanni_Pillars_0005" /></a></td>

            <td align="center"><a href="images/AriaGiovanni_Pillars_0025.jpg"><img src="thumbnails/AriaGiovanni_Pillars_0025.jpg" height="200" width="133" alt="AriaGiovanni_Pillars_0025" /></a></td>

            <td align="center"><a href="images/AriaGiovanni_Pillars_0039.jpg"><img src="thumbnails/AriaGiovanni_Pillars_0039.jpg" height="200" width="133" alt="AriaGiovanni_Pillars_0039" /></a></td>

            <td align="center"><a href="images/AriaGiovanni_Pillars_0056.jpg"><img src="thumbnails/AriaGiovanni_Pillars_0056.jpg" height="200" width="133" alt="AriaGiovanni_Pillars_0056" /></a></td>

          </tr>

          <tr>

            <td align="center"><a href="images/AriaGiovanni_Pillars_0077.jpg"><img src="thumbnails/AriaGiovanni_Pillars_0077.jpg" height="200" width="133" alt="AriaGiovanni_Pillars_0077" /></a></td>

            <td align="center"><a href="images/AriaGiovanni_Pillars_0085.jpg"><img src="thumbnails/AriaGiovanni_Pillars_0085.jpg" height="200" width="133" alt="AriaGiovanni_Pillars_0085" /></a></td>

            <td align="center"><a href="images/AriaGiovanni_Pillars_0086.jpg"><img src="thumbnails/AriaGiovanni_Pillars_0086.jpg" height="200" width="133" alt="AriaGiovanni_Pillars_0086" /></a></td>

            <td align="center"><a href="images/AriaGiovanni_Pillars_0089.jpg"><img src="thumbnails/AriaGiovanni_Pillars_0089.jpg" height="200" width="133" alt="AriaGiovanni_Pillars_0089" /></a></td>

            <td align="center"><a href="images/AriaGiovanni_Pillars_0119.jpg"><img src="thumbnails/AriaGiovanni_Pillars_0119.jpg" height="200" width="133" alt="AriaGiovanni_Pillars_0119" /></a></td>

          </tr>

          <tr>

            <td align="center"><a href="images/AriaGiovanni_Pillars_0123.jpg"><img src="thumbnails/AriaGiovanni_Pillars_0123.jpg" height="200" width="133" alt="AriaGiovanni_Pillars_0123" /></a></td>

            <td align="center"><a href="images/AriaGiovanni_Pillars_0127.jpg"><img src="thumbnails/AriaGiovanni_Pillars_0127.jpg" height="200" width="133" alt="AriaGiovanni_Pillars_0127" /></a></td>

            <td align="center"><a href="images/AriaGiovanni_Pillars_0139.jpg"><img src="thumbnails/AriaGiovanni_Pillars_0139.jpg" height="200" width="133" alt="AriaGiovanni_Pillars_0139" /></a></td>

            <td align="center"><a href="images/AriaGiovanni_Pillars_0200.jpg"><img src="thumbnails/AriaGiovanni_Pillars_0200.jpg" height="200" width="133" alt="AriaGiovanni_Pillars_0200" /></a></td>

            <td align="center"><a href="images/AriaGiovanni_Pillars_0207.jpg"><img src="thumbnails/AriaGiovanni_Pillars_0207.jpg" height="200" width="133" alt="AriaGiovanni_Pillars_0207" /></a></td>

          </tr>

          

          <tr>

            <td colspan="5" align="center"><div align="center"><a href="http://tracker.zombaio.com/?$afid.7876964"><font face="Verdana, Arial, Helvetica, sans-serif" size="5"><strong>CLICK HERE TO BROWSE GLAMOUR FILMS</strong></font></a></div>

                <br /><br />

                <p><font face="Verdana, Arial, Helvetica, sans-serif"><strong><font size="2">GlamourFilms&#8482;<br />

                          <font face="Verdana, Arial, Helvetica, sans-serif"><strong>18

                            U.S.C. 2257 Record-Keeping Requirements Compliance Statement</strong></font></font></strong></font>:<br />

                http://glamourfilms.com/18-statement.html</p></td>

          </tr>

      </table></td>

  </tr>

	<tr>

		<td>

	  <img src="../../../images/TGP-bottom.jpg" width="800" height="36" alt="" /></td>

  </tr>

</table>









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

	}

}



