use strict;
use warnings;

use Email::Valid;
my $address = Email::Valid->address(-address => 'myname@mydomain.com', -mxcheck => 0, -tldcheck => 0, -fudge=>0);
print ($address ? 'yes' : 'no');