#!/usr/bin/perl -w

use strict;
use Socket;

my $host = "noresolve";

my $i  = gethostbyname($host)
  or die "Failure to resolve $host: $!\n";
my $ip = inet_ntoa($i)
  or die "Failure to resolve $host: $!\n";