#!/usr/local/bin/perl

$server_protocol = $ENV{'SERVER_PROTOCOL'};
$server_software = $ENV{'SERVER_SOFTWARE'};
$client_browser = $ENV{'HTTP_USER_AGENT'};

print "HTTP/1.0 200 OK\n";
print "Server: $server_software\n";
#print "Content-type: x-world/x-vrml\n";
#print "Content-Encoding: wrl \n\n";
print "Content-type: text/plain\n\n";
print "All Done!\n";

if (grep (/MSIE/,$client_browser) ) {
print "browser is Internet Explorer:$client_browser\n";
}
else {
print "browser is Netscape:$client_browser\n";
}
exit(0);