ほげ

#!/usr/local/bin/perl

use strict;
use HTTP::MobileAgent;

sub foo {
    local $ENV{HTTP_USER_AGENT} = 'J-PHONE/2.0/J-DN02';
    my $agent = HTTP::MobileAgent->new;
    return $agent->get_header( 'x-jphone-uid' ) unless $agent->is_type_c;
}

warn &foo;