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();