Help for this page
use strict; use Data::Dumper; ... my $res = Net::DNS::Resolver->new; my @mx = mx($res, $domain); print Dumper (@mx);
'exchange' => 'mta7.am0.yahoodns.net' 'exchange' => 'mta5.am0.yahoodns.net' 'exchange' => 'mta6.am0.yahoodns.net'