@iparray = unpack ('C4', (gethostbyname $machine) || next );