my $ip = ( gethostbyname ( $host ) )[4];
unless ( $ip ) { ....