Help for this page
use Net::DNS; my @mx = mx($domain);
use Net::DNS; my $resolvewr = Net::DNS::Resolver->new(); my @mx = mx $resolver, $domain;