Select Code to Download

use HTML::Entities;
use strict;
...

use Mail::Sendmail;
Mail::Sendmail::sendmail(%mail) || print STDERR $Mail::Sendmail::error
+;

# Sender setup 
use Mail::Sender::Easy qw(email);
...
    charset => 'utf-8',
    _text => $input,
}) || print STDERR "email() failed: $@";