#!/usr/bin/perl
$siteipaddress='216.12.139.35';


$visitor = "$ENV{'REMOTE_HOST'}";
$ref=$ENV{HTTP_REFERER};
$name=$ENV{SCRIPT_NAME}; 
$servername=$ENV{SERVER_NAME};
$scriptname=$ENV{SCRIPT_NAME};
$pathinfo=$ENV{PATH_INDO};
$httphost=$ENV{HTTP_HOST};

#print "Content-type: text/html\n\n";
#print "HTTPhost:*$httphost*<BR>";
#print "Script Name:*$scriptname*<BR>";



if (($httphost eq $siteipaddress) & ($scriptname eq '/consulting/index.html')) {
	print "Status: 301 Moved Permanently\n";
	print "Location: http://www.linkpopularity.com/consulting/\n\n";
	}
else
	{
	print "Content-type: text/html\n\n";
	print `cat consultinghome.htm`;
	}














#print "Server Name:*$servername*<BR>";
#print "Script Name:*$scriptname*<BR>";
#print "Pathinfo:*$pathinfo*<BR>";
#print "HTTPhost:*$httphost*<BR>";
#print `cat consultinghome.htm`;