perlファイルに プログラムでフォーム部品のサイズ調整をしたいと思っています。。 下記のソースにmac判別も入れたいのですが、perlが全く分からなくて困っております。 ↓ソースです。 ------------------------------ ## --- ブラウザを判断しフォーム幅を調整 sub get_bros { # ブラウザ名を取得 $agent = $ENV{'HTTP_USER_AGENT'}; if ($agent =~ /MSIE 3/i) { $nam_wid = 37; $subj_wid = 37; $com_wid = 37; } elsif ($agent =~ /MSIE 4/i || $agent =~ /MSIE 5/i || $agent =~ /MSIE 6/i) { $nam_wid = 35; $subj_wid