# ex_18-2
# Learning Perl on Win32 Systems, Exercise 18.2

use strict;
use CGI qw(:standard);
print header(), start_html("Browser Detective");
print h1("Browser Detective"), hr();
my $browser = $ENV{'HTTP_USER_AGENT'};
$_ = $browser;
if (/msie/) {
  msie($_);
} elsif (/mozilla/i) {
  netscape($_);
} elsif (/lynx/i) {
  lynx($_);
} else {
  default($_);
}

print end_html();
sub msie{ 
  print p("Internet Explorer: @_.  Good Choice\n");
}
sub netscape {
  print p("Netscape: @_.  Good Choice\n");
}
sub lynx {
  print p("Lynx: @_.  Shudder...");
}
sub default {
  print p("What the heck is a @_?");
}