Email::Valid

It's what I use and it cataches most of the silly email errors such as "angel@aol" or "angel@hotmail" and it looks and passes the really complicated patterns that some places use for email addresses "sgt.angel@area55.nowhere.mil"

As ripped out of my code

  

sub update_email_address( $ )
{
   my $data;
   my $query;   

   my $self = shift;


    if( !Email::Valid->address( $_[0] ) )
    {
       $self->{'error_type'}   = "email invalid";   
       $self->{'error_string'} = "E-mail address is invalid.";   
       return( undef );      
    }
    #else if good so use it for something
}
[download]