use Net::ADNS qw(ADNS_R_A ADNS_R_A);
$adns = Net::ADNS->new;
use Data::Dumper;
my $query = $adns->submit("pwarez.6x.to", ADNS_R_A) or die "$!";
$query->{user} = 'my data';
my ($r, $w, $e, $t) = $adns->before_select;
if (select($r, $w, $e, $t)) {
        if (my $answer = $adns->check) {
                print "resolved query: ", Dumper $answer;
        }
}