#!/usr/bin/perl -w

use Net::DNS;

# If the user didn't specify a domain name to look up, exit
die "Usage:  $0 <domain name>" unless (@ARGV == 1);

# Create a resolver object
my $res   = Net::DNS::Resolver->new;

# Look up A records (the default) for the domain name argument
my $query = $res->search($ARGV[0]);

# If this returned an answer…
if ($query) {

	# Print every A record in the answer message
	foreach my $rr ($query->answer) {
    	next unless $rr->type eq "A";
		print $rr->address, "\n";
	}

# Otherwise print an error
} else {
	print "query failed: ", $res->errorstring, "\n";
}