Send mail with perl

/*
I get the following error when running the following script.
C:\Users\Administrator\Desktop>test.pl
unable to establish SMTP connection

Trace begun at C:\Dwimperl\perl\site\lib\Email\Sender\Transport\SMTP.pm line 95
Email::Sender::Transport::SMTP::_throw('Email::Sender::Transport::SMTP=HASH(0x1df104c)', 'unable to establish SMTP connection') called at C:\Dwimperl\perl\site\lib\Email\Sender\Transport\SMTP.pm line 62
Email::Sender::Transport::SMTP::_smtp_client('Email::Sender::Transport::SMTP=HASH(0x1df104c)') called at C:\Dwimperl\perl\site\lib\Email\Sender\Transport\SMTP.pm line 104
Email::Sender::Transport::SMTP::send_email('Email::Sender::Transport::SMTP=HASH(0x1df104c)', 'Email::Abstract=ARRAY(0x1df103c)', 'HASH(0x2c77c34)') called at C:\Dwimperl\perl\site\lib\Email\Sender\Role\CommonSending.pm line 27
Email::Sender::Role::CommonSending::__ANON__ at C:\Dwimperl\perl\site\lib\Try\Tiny.pm line 76
eval {...} at C:\Dwimperl\perl\site\lib\Try\Tiny.pm line 67
Try::Tiny::try('CODE(0x2e1dbdc)', 'Try::Tiny::Catch=REF(0x2ce3b34)') called at C:\Dwimperl\perl\site\lib\Email\Sender\Role\CommonSending.pm line 37
Email::Sender::Role::CommonSending::send('Email::Sender::Transport::SMTP=HASH(0x1df104c)', 'Email::Abstract=ARRAY(0x1df103c)', 'HASH(0x2e1dd8c)') called at C:\Dwimperl\perl\site\lib\Email\Sender\Simple.pm line 110
Email::Sender::Simple::send_email('Email::Sender::Simple', 'Email::Abstract=ARRAY(0x1df103c)', 'HASH(0x2c77144)') called at C:\Dwimperl\perl\site\lib\Email\Sender\Role\CommonSending.pm line 27
Email::Sender::Role::CommonSending::__ANON__ at C:\Dwimperl\perl\site\lib\Try\Tiny.pm line 76
eval {...} at C:\Dwimperl\perl\site\lib\Try\Tiny.pm line 67
Try::Tiny::try('CODE(0x2c77804)', 'Try::Tiny::Catch=REF(0x2cdd464)') called at C:\Dwimperl\perl\site\lib\Email\Sender\Role\CommonSending.pm line 37
Email::Sender::Role::CommonSending::send('Email::Sender::Simple', 'Email::Simple=HASH(0x2cd02ec)', 'HASH(0x347bc4)') called at C:\Dwimperl\perl\site\lib\Sub\Exporter\Util.pm line 69
Sub::Exporter::Util::__ANON__('Email::Simple=HASH(0x2cd02ec)', 'HASH(0x347bc4)') called at C:\Users\Administrator\Desktop\test.pl line 29
*/

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 });