ブラウザ情報の取得
HTTP::BrowserDetectモジュールを使います。
use strict;
use HTTP::BrowserDetect;
my $browser = new HTTP::BrowserDetect($ENV{HTTP_USER_AGENT});
my $browser_name = $browser->browser_string(), "\n";
my $os = $browser->os_string(), "\n";
my $version = $browser->version(), "\n";
