Guest User

Untitled

a guest
Jul 17th, 2018
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.18 KB | None | 0 0
  1. use Email::Valid;
  2.  
  3. my $address = $ARGV[0] || 'foo @bar.com';
  4. if ( Email::Valid->address($address) ) {
  5. print "$address is valid\n";
  6. } else {
  7. print "$address is NOT valid\n";
  8. }
Add Comment
Please, Sign In to add comment