
sub validate_email {
  my ($email)=@_;

  if($email =~ m/^([a-zA-Z0-9_\.\-])+\@(([a-zA-Z0-9\-])+\.)+([a-zA-Z0-9]{2,4})+$/s) {
    return 1
  } else {
    return 0;	
  }	
}