# Sender setup 
use Mail::Sender::Easy qw(email);
email({
    smtp => 'smtp.mycompany.com',
    from => 'server@mycompany.com',
    to => 'me@mycompany.com',
    subject => 'Sender Test',
    charset => 'utf-8',
    _text => $input,
}) || print STDERR "email() failed: $@";