perl -MEmail::Valid -le 'print Email::Valid->mx("gmail.com") ? "yep" : "nope"'
yep

perl -MEmail::Valid -le 'print Email::Valid->mx("tacohut.co.uk.jp.cx") ? "yep" : "nope"'
nope