try {
sendmail(
         $email,
         {
          from => $email_from,
          transport => Email::Sender::Transport::SMTP->new({host => $SMTP_HOSTNAME,port => $SMTP_PORT})
         }
        );
}
catch { print $_->message};