iモードで機種判別して表示２

#!/usr/local/bin/perl
# i-mode機種判別画像表示CGI

#-----------------------
# 表示画像データ
#-----------------------
# 表示ディレクトリ 
$IMG_DIR = '../pic/';

# 白黒版
$IMG_M = 'kumaoriim.gif';
# カラー版
$IMG_C = 'kumaorii.gif';
# 4色版
$IMG_4 = 'kumaorii4.gif';
# J-Phone版
$IMG_J = 'kumaorij.png';

#===============================#
# メイン
#===============================#
# 機種情報からファイル名取得
&chk_agent($ENV{'HTTP_USER_AGENT'});

#　ファイル情報取得
($dev,$ino,$mode,$nlink,$uid,$gif,$rdev,
       $size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($file);

# ファイル読込
open(IN, "$file");
binmode(IN);
sysread(IN, $buf, $size);
close(IN);

# 画像表示
print $ContentImage;
print $buf;

#===============================#
# エージェント情報により画面情報取得
# in:HTTP_USER_AGENT
#===============================#
sub chk_agent(){
    local @AGENT = split(/\//,$_[0]);
    local $color;

    # ユーザーエージェント情報
    %AGENT_INFO = (
        "P501i",2,
        "N501i",2,
        "D501i",2,
        "F501i",2,
        "P502i",4,
        "N502i",4,
        "N502it",4,
        "D502i",256,
        "F502i",256,
        "SO502i",4,
        "SO502iWM",256,
        "NM502i",2,
        "P209i",4,
        "P209is",256,
        "N209i",4,
        "D209i",256,
        "F209i",256,
        "R209",4,
        "KO209i",256,
        "ER209i",2,
        "P503i",256,
        "P503is",256,
        "N503i",4096,
        "D503i",4096,
        "F503i",256,
        "SO503i",655336,
        "P210i",256,
        "N210i",256,
        "D210i",256,
        "F210i",256,
        "KO210i",256,
        "R691i",4,
        "P821i",4,
        "N821i",4,
        "SH821i","256"
    );

    $ContentImage = "Content-type: image/gif\n\n";
    #-----------------------
    # imode判別
    #-----------------------
    if($AGENT[0] eq "DoCoMo"){
        # 色情報取得
        $color = $AGENT_INFO{$AGENT[2]};

        # 色からファイル名設定
        # 未定義時
        if(!defined($color)){
            $file = "$IMG_DIR$IMG_C";
        }
        elsif(256 <= $color){
            $file = "$IMG_DIR$IMG_C";
        }
        elsif(4 <= $color){
            $file = "$IMG_DIR$IMG_4";
        }
        else{
            $file = "$IMG_DIR$IMG_M";
        }
    }
    #-----------------------
    # J-Phone判別
    #-----------------------
    elsif($AGENT[0] eq "J-PHONE"){
        $ContentImage = "Content-type: image/png\n\n";
        $file = "$IMG_DIR$IMG_J";
    }
    #-----------------------
    # その他機種
    #-----------------------
    else{
        $file = "$IMG_DIR$IMG_C";
    }
}