$addr = $ENV{'REMOTE_ADDR'};
$host = $ENV{'REMOTE_HOST'};
if (($host eq $addr) || ($host eq '')) { 
$host = gethostbyaddr(pack('C4',split(/\./,$addr)),2) || $addr;
}
if ( $host !~ /docomo.ne.jp/ ) {
print "うんこ"; 
}