#!/usr/local/bin/perl -w
###########################################
# revlookup - Reverse DNS Lookup
# Mike Schilli, 2008 (m@perlmeister.com)
###########################################
use strict;
use Socket;

my $host = $ARGV[0] or 
  die "usage: $0 ipaddr";

print reverse_lookup($host) || "unknown", 
      "\n";

###########################################
sub reverse_lookup {
###########################################
  my ($ip) = inet_aton $_[0];

  return (gethostbyaddr($ip, AF_INET))[0];
}