use Email::Valid;
print (Email::Valid->address('maurice@hevanet.com') ? 'yes' : 'no');