Net::DNS 

• Mature module

• Actively maintained

• Good documentation

• http://www.net-dns.org

• Very easy to use

• $good++;

use Net::DNS;
my $res = Net::DNS::Resolver->new;
my  @mx = mx($res, "example.com");