#!/usr/bin/perl print "Content-type:text/html\n\n"; print "Welcome\n"; print "\n"; print "Browser: $ENV{'HTTP_USER_AGENT'}

\n"; if ($ENV{'HTTP_USER_AGENT'} =~ /MSIE/) { print "You seem to be using Internet Explorer!

\n"; } elsif ($ENV{'HTTP_USER_AGENT'} =~ /Mozilla/) { print "You seem to be using Netscape!

\n"; } else { print "You seem to be using a browser other than Netscape or IE.

\n"; } print "\n";