my @user_agent_list= 
                ({title=>'Internet Explorer', 
                        string=>'MSIE', 
                        url=>'http://www.microsoft.com/windows/ie/default.asp'},
                 {title=>'Konqueror', 
                        string=>'Konqueror', 
                        url=>'http://www.konqueror.org/'},
                 {title=>'Galeon', 
                        string=>'Galeon', 
                        url=>'http://galeon.sourceforge.net/'},
                 {title=>'Opera', 
                        string=>'Opera', 
                        url=>'http://www.opera.com/'},
                 {title=>'Dillo', 
                        string=>'Dillo', 
                        url=>'http://dillo.cipsga.org.br/'},
                 {title=>'Mozilla', 
                        string=>'Mozilla\/5', 
                        url=>'http://www.mozilla.org/'},
                 {title=>'Netscape', 
                        string=>'Mozilla\/4', 
                        url=>'http://wp.netscape.com/download/'},
                );

print div({-id=>'browser'}, p("Browser: $ENV{'HTTP_USER_AGENT'}"),);

for my $browser (@user_agent_list) {
        if (($ENV{'HTTP_USER_AGENT'}) =~ /$browser->{string}/) {
                print p("You seem to be using", 
                        a({-href=>"$browser->{url}"}, 
                        $browser->{title}, ));
        }
}