my $ip = lookup ( $host )
  or warn "Cannot resolve $host!\n";

sub lookup {
  my $host = shift;
  my $i  = gethostbyname($host)
    or return undef;
  my $ip = inet_ntoa($i)
    or return undef;
  return $ip;
}