Select Code to Download

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

print (Email::Valid->address( -address => 'maurice@hevanet.com',
                              -mxcheck => 1 ) ? 'yes' : 'no');

$addr = Email::Valid->address('Alfred Neuman <Neuman @ foo.bar>');
print "$addr\n"; # prints Neuman@foo.bar

unless(Email::Valid->address('maurice@hevanet')) {
  print "address failed $Email::Valid::Details check.\n";
}

eval {
  $addr = Email::Valid->address( -address => 'maurice@hevanet.com',
                                 -mxcheck => 1 );
};
warn "an error was encountered: $@" if $@;