#!/usr/bin/perl
for $remote_address (@ARGV) {
	@subnet_numbers = split(/\./, $remote_address);
	$packed_address = pack("C4", @subnet_numbers);
	($remote_host) = gethostbyaddr($packed_address, 2);
	print "$remote_host\n";
}