use Email::Valid;
use strict;

print (Email::Valid->address( 'x @ x.com') ? 'yes' : 'no');
print "\n";
print (Email::Valid->address( 'x @@ x.com') ? 'yes' : 'no');
print "\n";