use Net::DNS;
my @mx = mx("perlmonk.org");