use Email::Valid;

unless (Email::Valid->address($email_address))
{
     warn "Not a valid e-mail address\n";
     return;
}