#!/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"; 
	

##</code><code>##

Output
I:\>perl dnslookup.pl t4400-202.mycompany.local

Host_Name
t4400-202.mycompany.local => 192.168.100.202
	( ==> wanting to show 192.168.110.202 as well <== 

I:\>