my $res = Net::DNS::Resolver->new;
$res->nameservers();
my $query = $res->search($domain, 'MX');
if ($query) {
    foreach my $rr ($query->answer) {
        #next unless $rr->type eq "";
        push @mx,$rr->exchange;
    }
}
else {
    print "query failed: ", $res->errorstring, "\n";
}
[download]