use Net::DNS;
my @mx = mx($domain);