#ex_19-2
#Learning Perl Appendix A, Exercise 19.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;
BROWSER:{
    if (/msie/i) {
            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 @_?");
}