http://www.perlmonks.org?node_id=75551


in reply to DNS Resolution4

I use this little script for checking IPs I get in SPAM headers to make sure I email the correct abuse@* addresses:

#!/usr/bin/perl -w use strict; use Socket; my $ip = $ARGV[0] || undef; unless ($ip) { print "What is the IP?\n"; $ip = <STDIN>; chomp $ip; } die "No IP given\n" if !$ip; print "Finding host for $ip...\n"; my $iaddr = inet_aton($ip); my $name = gethostbyaddr($iaddr, AF_INET) || "NO DATA"; print "$ip is $name\n";

Cheers,
KM