#!/usr/bin/perl -w 
# hostaddrs - canonize name and show addresses 
use Socket; 
use Net::hostent; 
use strict;

print "\nHost_Name \n";
my ($name, $hent, @addresses); 
$name = shift || die "usage: $0 hostname\n"; 
if ($hent = gethostbyname($name)) { 
	$name = $hent->name; # in case different 
	my $addr_ref = $hent->addr_list; 
	@addresses = map { inet_ntoa($_) } @$addr_ref; 
} 
	print "$name => @addresses\n";