#!/usr/bin/perl
$url="";
if ($ENV{'HTTP_HOST'} =~ /(www\.|^)shy-zip.com/)
{$url = "http://$ENV{'HTTP_HOST'}/shy-blind/index.htm"}
if ($ENV{'HTTP_HOST'} =~ /(www\.|^)www.shy-zip.com/)
{$url = "http://$ENV{'HTTP_HOST'}/shy-blind/index.htm"}
if($url eq "") {$url="http://shy-blind.com/index.htm"}
#################################################################
print "Location: $url\n";
print "Content-Type: text/html\n\n";
print "$ENV{'HTTP_HOST'}\n";
print "Click here to enter\n";
print "\n";