use Socket;
  my $address = shift or die "Usage: $0 address\n";
  my $a = gethostbyname $address;
  $\ = $/;
  print defined $a ? inet_ntoa($a) : "Can't resolve '$address'";