The Net::DNS module wraps much of that for you - no need to rewrite all of it. After the Net::DNS docs:

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

, minimally, or

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

which allows for error handling and other tricks.