send email with perl 587 and startssl

hello folks

when is it the easiest solution to email  587 startssl and authentication

I arrived by writing this but the email sent does not contain the headers of 
the authentication

]$ cat emailsender1.pl
#!/usr/bin/perl

use Email::MIME;

my $message = Email::MIME->create(
                         header => [
                             From => '[email protected]',
                             To   => '[email protected]',
                                   ],
                          parts => [
                              q[ This is part one],
                              q[ This is part two],
                              q[ These could be binary too],
                              ],
                         );
  # produce an Email::Abstract compatible message object,
  # e.g. produced by Email::Simple, Email::MIME, Email::Stuff

  use Email::Sender::Simple qw(sendmail);
  use Email::Sender::Transport::SMTP qw();
  use Try::Tiny;
  my $SMTP_ENVELOPE_FROM_ADDRESS='[email protected]';
  my $SMTP_HOSTNAME='smtp.titi.eu';
  my $SMTP_PORT=587;
  try {
    sendmail(
      $message,
      {
        from => $SMTP_ENVELOPE_FROM_ADDRESS,
        transport => Email::Sender::Transport::SMTP->new({
            host => $SMTP_HOSTNAME,
            port => $SMTP_PORT,
        })
      }
    );
  } catch {
      warn "sending failed: $_";
  };

-- 
 http://pgp.mit.edu:11371/pks/lookup?op=get&search=0x092164A7
 gpg --keyserver pgp.mit.edu --recv-key 092164A7

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.5 (GNU/Linux)

iD8DBQBOKiketXI/OwkhZKcRAhKKAJ951LAW6saCzv6ZM3yssnl/Jj+aWwCfQOYO
KD0W3qAwHLFCsYmsjI5YEBE=
=7ZjR
-----END PGP SIGNATURE-----