12 lines
208 B
Perl
12 lines
208 B
Perl
|
#!/usr/bin/perl
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use Email::Valid;
|
||
|
|
|
||
|
|
my $email_address = 'a@.n@example.com';
|
||
|
|
|
||
|
|
unless( Email::Valid->address($email_address) ) {
|
||
|
|
print "Sorry, that email address is not valid!";
|
||
|
|
}
|