use strict;
use Data::Dumper;
#########################################
die "INPUT: domain:\n" if (@ARGV != 1);
my $domain = $ARGV[0];
#########################################
# Use your own resolver object.
use Net::DNS;
my $res = Net::DNS::Resolver->new;
my  @mx = mx($res, $domain);
print Dumper (@mx);