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

##</code><code>##

my @iparray =
    map defined() ? join('.', unpack 'C4', $_) : (),
    map scalar(gethostbyname $_),
    @machine;