[elton@sistema semetra]$ cat email.pl
#!/usr/bin/perl
#
## requires Mail::Sender and IO::Socket::SSL installed using cpan
#
use strict;
use Mail::Sender;

my $text = "msg texto";
my $html = "<h1>msg html</h1>";

# Abrindo a conexão
my $from = 'Teste da Silva <sistema@semetra.cipec.com.br]>';
my $subject = 'Titulo';

# Login credentials
my $username = 'sistema@semetra.com.br';
my $password = "semetra01";

my $to = 'esbaptista@gmail.com';

eval {
  (new Mail::Sender)
    ->OpenMultipart({
       smtp            => 'smtplw.com.br',
       port            => 587,
       from            => $from,
       to              => $to,
       subject         => $subject,
       multipart       => 'mixed',
       auth            => 'PLAIN',
       authid          => $username,
       authpwd         => $password,
       TLS_required    => 0,
       on_errors       => 'undef'
       })
    ->Part({ctype => 'multipart/alternative'})
    ->Part({ctype => 'text/plain', disposition => 'NONE', msg => $text})
    ->Part({ctype => 'text/html', disposition => 'NONE', msg => $html})
    ->EndPart("multipart/alternative")
    ->Close();
} or print "Error sending mail: $Mail::Sender::Error\n";
[elton@sistema semetra]$