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