ホストで振り分ける場合

http://specters.net/cgipon/labo/c_dist.html
ここに書いてあるとおりindex.cgiを置いたところ、i-modeで見た場合
「iモードに対応していません」
というエラー表示がでてしまいます。

ちなみにソースはこれです。

@user_agent = split(/\//,$ENV{'HTTP_USER_AGENT'});

if ($user_agent[0] eq 'DoCoMo') {
# i-mode 用の処理
$url = "i/imode.html";
} else {
# それ以外
$url = "index.html";
}

print "Location: $url\n\n";
exit;

エラーを出さないようにするにはどうすればいいのでしょうか？