#!/usr/bin/perl
use Net::DNS;
$res   = Net::DNS::Resolver->new;
open(IPLIST, ">iplist.csv");
open(HOSTLIST, "<hostlist.txt");
while (<HOSTLIST>) {
        $hostname = $_;
        chomp($hostname);
        $query = $res->search($hostname);
        if ($query) {
                foreach my $rr ($query->answer) {
                        next unless $rr->type eq "A";
                        print IPLIST $hostname.",".$rr->address, "\n";
                }
        } else {
                print IPLIST $hostname.","."query failed: ", $res->errorstring, "\n";
        }
}
close(HOSTLIST);
close(IPLIST);