MXレコード情報の取得

　Net::DNSモジュールを使います。

use strict;
use Net::DNS;

my @mx_list = mx("biglobe.ne.jp");

foreach my $mx (@mx_list) {
	print $mx->{exchange}, "\n";
}