#!/usr/bin/perl
foreach $fieldname(keys %ENV){
$ser_ver="$ENV{'HOSTNAME'}";
$ser_ver2="$ENV{'USER'}";
$server_name="$ENV{'SERVER_NAME'}";
$romote_addr="$ENV{'REMOTE_ADDR'}";
$remote_host="$ENV{'REMOTE_HOST'}";
$auth_type="$ENV{'AUTH_TYPE'}";
$remote_user="$ENV{'REMOTE_USER'}";
$remote_ident="$ENV{'REMOTE_IDENT'}";
$http_referer="$ENV{'HTTP_REFERER'}";
};


if ($ENV{HTTP_USER_AGENT} =~ /mozilla/i)
{
print "Location: index.htm\n\n";
exit;
}

if ($ENV{HTTP_USER_AGENT} =~ /msie/i)
{
print "Location: index.htm\n\n";
exit;
}

if ($ENV{REMOTE_USER_AGENT} =~ /mozilla/i)
{
print "Location: index.htm\n\n";
exit;
}

if ($ENV{REMOTE_USER_AGENT} =~ /msie/i)
{
print "Location: index.htm\n\n";
exit;
}
print "Location: /index.wml\n\n";
exit;