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