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