こう書くと携帯のとき$mobileが「1」になるから
それを使って分岐
他の携帯はどっかでuser-agent調べて追加してね

$mobile = 0;
$agent = $ENV{'HTTP_USER_AGENT'};
if ($agent =~ /^DoCoMo/i) { # i-mode
  $mobile = 1;
} elsif ($agent =~ /^J-PHONE/i) { # J-SKY
  $mobile = 1;
} elsif ($agent =~ /^UP\.Browser/i) { # EZweb
  $mobile = 1;
}