#!/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>Evie Delatosso in Glamour Bubbles</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>Evie Delatosso in Bubbles</h1>

              Sexy Latina babe Evie Delatosso exposing her smooth little nude body  while taking a bubble bath. Check out this glamour art gallery  featuring pornstar Evie touching her big boobs and spreading her sweet  little ass all covered with white bubbles!</td>

          </tr>

          <tr>

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

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

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

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

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

          </tr>

          <tr>

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

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

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

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

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

          </tr>

          <tr>

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

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

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

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

            <td align="center"><a href="images/EvieDelatosso_Bubbles_0432.jpg"><img src="thumbnails/EvieDelatosso_Bubbles_0432.jpg" height="200" width="132" alt="EvieDelatosso_Bubbles_0432" /></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 />

<!-- {RECIPS} -->

                 <br /><br />

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

                   18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement at:</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

	}

}



