sub resolve($) {
my($packed_ip)=@_;
my $ip_address='n/a';
if (defined $packed_ip) {
$ip_address=inet_ntoa($packed_ip);
}
return($ip_address);
}
sub main() {
my $packed_ip = gethostbyname("web99.mytest.in.client.com");
my $resolved=resolve($packed_ip);
print("web99.mytest.in.client.com: ".$resolved."\n\n");
my $packed_ip1 = gethostbyname("web99");
$resolved=resolve($packed_ip1);
print("web99: ".$resolved."\n");
}
main();


##</code><code>##

web97 $ nslookup web99
Server: 144.136.201.10
Address: 144.136.201.10#53
Non-authoritative answer:
Name: web99.ebr.in.client.com
Address: 10.97.225.188
web97 $ nslookup web99.mytest.in.client.com
Server: 144.136.201.10
Address: 144.136.201.10#53
Non-authoritative answer:
Name: web99.mytest.in.client.com
Address: 141.168.243.250