验证电子邮件地址

#!/usr/bin/perl
use strict;
use warnings;

use Email::Valid;

my $email_address = '[email protected]';

unless( Email::Valid->address($email_address) ) {
    print "Sorry, that email address is not valid!";
}