# Only accept addresses which look valid.
 sub email {
     my($self) = shift;
     my($email) = @_;

     if( @_ ) {  # Setting
          require Email::Valid;
          unless( Email::Valid->address($email) ) {
          carp("$email doesn’t look like a valid address.");
          return;
      }
   }

   return $self->SUPER::email(@_);
}