Select Code to Download

sub syb_gethostbyaddr
{
...

    return (gethostbyaddr(inet_aton($my_ipaddr), AF_INET))
}

sub numtoname {
    local ($_) = @_;
...
    }
    return $numtoname{$_};
}

package SybaseInterfaces;
....
...

    return ( $SybaseInterfaces::lookup_iptoname{$my_ipaddr} );
}