use Net::DNS;
my $res   = Net::DNS::Resolver->new;
my $reply = $res->search("www.example.com", "A");
 
if ($reply) {
    foreach my $rr ($reply->answer) {
        print $rr->address, "\n" if $rr->can("address");
    }
} else {
    warn "query failed: ", $res->errorstring, "\n";
}