($name,$aliases,$addrtype,$length,@addrs) = gethostbyname($machine);
    if($#addrs == -1){ next; }
    $ipadrs = join ".", unpack('C4', $addrs[0]);
    @iparray = split(/\./,$ipadrs);

##</code><code>##

    @addrs = gethostbyname($machine) or next;
    @iparray = unpack('C4', $addrs[4]);

##</code><code>##

    @iparray = unpack ('C4',((gethostbyname($machine))[4]));