#!/usr/mesh/bin/perl

$_ = $ENV{'HTTP_USER_AGENT'};

if(/Mozilla\/[0-9]*/)
{
    if(/compatible; MSIE /)
    {
        print "MSIEです\n";
    }
    else
    {
        print "Netscape Navigatorです\n";
    }
}
elsif(/Microsoft Internet Explorer/)
{
        print "MSIEです\n";
}
elsif(/IBM-WebExplorer-/)
{
        print "WebExplorerです\n";
}
else
{
    print "分かりません(^_^;)";
}