use Email::Valid;

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