sub numtoname {
    local($_) = @_;
    unless (defined $numtoname{$_}) {
	local(@a) = gethostbyaddr(pack('C4', split(/\./)),2);
	$numtoname{$_} = @a > 0 ? $a[0] : $_;
    }
    $numtoname{$_};
}
