#!/usr/bin/env perl
use strict;
use warnings;
use Net::DNS;

my @rr = rr ('www.perlmonks.org', 'A');
for my $rec (@rr) {
    next unless $rec->type eq 'A';
    print "Found: " . $rec->rdstring . "\n";
}