View difference between Paste ID: bU66nv8D and AZMf3BP7

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