sub syb_gethostbyaddr
{
    my $self = shift;
    my $class = ref($self);
    my ($my_ipaddr) = @_;

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