my $emv = Email::Valid->new();
    $emv->tldcheck(1);
    $emv->mxcheck(1);
    $addr = $emv->address(-address => $addr) if $addr;