Send mail with perl

use Email::Sender::Simple qw(sendmail);
use Email::Simple;
use Email::Simple::Creator;
use Email::Sender::Transport::SMTP;


$transport = Email::Sender::Transport::SMTP->new(
    Host => 'smtp.com',
    #ssl     => false,
    Port    => '25',
    Timeout => 10,
    sasl_username   => '[email protected]',
    sasl_password   => 'mypass',
    Helo            => 'mikispc.epoch.co.il',
);

$to     = '[email protected]';
$from   = '[email protected]';

my $email = Email::Simple->create(
    header => [
        To      => $to,
        From    => $from,
        Subject => 'Message in a bottle',
    ],
    body => "This message is short, but at least it's cheap.\n",
);

sendmail($email, { transport => $transport });
#Email::Sender::Simple->send($email, { transport => $transport });