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