#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 @_?")};