#!/usr/bin/perl -w

use strict;

use Socket;

die "usage:\n\n  $0 ip_addr\n\n" if !defined($ARGV[0]);   # Must have IP addr

my $hostname = gethostbyaddr( inet_aton($ARGV[0]), AF_INET ) || '(none)';

print("hostname: $hostname\n" );