this is what i include in anything
that needs email validation
hope its of use
notice the use of mxcheck!

use Email::Valid;

   
sub emailvalidate {
my $evalid= Email::Valid->address( -address =>$_[0],-mxcheck => 1) ? '
+yes' : 'no';
return  $evalid;
}
[download]

back in the day we didnt have no old school