#!/usr/bin/perl
use Net::DNS;
my $res   = Net::DNS::Resolver->new;
while (<>){
	chomp;
	my $host  = $_;
	my $query = $res->search($host);

	if ($query) {
		foreach my $rr ($query->answer) {
			next unless $rr->type eq "A";
			my $address = $rr->address;
			printf("%-20s : %14s\n" ,$host,$address);
		}
	} else {
		warn "query failed: ", $res->errorstring, "\n";
	}
}