use strict;
use Net::DNS;
my ($domain) = $email_to =~ /@(.*)$/;
my ($mailserver) = map { $_->exchange } sort { $a->preference <=> $b->preference } mx($domain);