#!/usr/bin/perl -w

$agent = $ENV{’HTTP_USER_AGENT’};

if($agent =~ /DoCoMo/){
    print "Location: http://example.jp/i/index.html";
    exit;
}
elsif($agent =~ /UP.Browser/){
    print "Location: http://example.jp/e/index.html";
    exit;
}
elsif($agent =~ /J-PHONE/){
    print "Location: http://example.jp/v/index.html";
    exit;
}
else{
    print "Location: http://example.jp/home.html";
    exit;
}

<?
$header = getallheaders();
$agent = $header["User-Agent"] ;

if(ereg("DoCoMo",$agent)){
    header("Location: http://example.jp/i/index.html");
    exit;
}
elseif(ereg("UP.Browser",$agent)){
    header("Location: http://example.jp/e/index.html");
    exit;
}
elseif(ereg("J-PHONE",$agent)){
    header("Location: http://example.jp/v/index.html");
    exit;
}
else{
    header("Location: http://example.jp/home.html");
    exit;
}
?>