title: perl sending email works on one system but not another
body: <p>I have a simple sending email perl code.</p>
  
  <pre><code> use strict;
      use warnings;
      use Time::Format;
      use Email::MIME;
      use Email::Sender::Simple qw(sendmail);
      use Email::Sender::Transport::SMTP;
      my $message = Email::MIME-&gt;create(
          header_str =&gt; [
              From    =&gt; 'me@provider.com',
              To      =&gt; 'me@provider.com',
              Subject =&gt; 'test',
          ],
          attributes =&gt; {
              encoding =&gt; 'quoted-printable',
              charset  =&gt; 'ISO-8859-1',
          },
          body_str =&gt; 'stefy test',
      );
      my $transport = Email::Sender::Transport::SMTP-&gt;new({
          host =&gt; 'my.server.smtp',
          port =&gt; 25,
      });
      sendmail($message, { transport =&gt; $transport });
  </code></pre>
  
  <p>I can it run with success in one system but not another.</p>
  
  <ol>
  <li><p>Windows 7 professional -> success </p></li>
  <li><p>Window Server 2008 -> failure</p></li>
  </ol>
  
  <p>this is the exception I get:</p>
  
  <pre><code>unable to establish SMTP connection to my.server.smtp port 25
  
      Trace begun at D:\strawberryperl\perl\site\lib\Email\Sender\Transport\SMTP.pm line 193   Email::Sender::Transport::SMTP::_throw('Email::Sender::Transport::SMTP=HASH(0x38
      0fef8)', 'unable to establish SMTP connection to my.server.smtp port 25') called at D:\strawberryperl\perl\site\lib\Email\Sender\Transport\SMTP.pm line 143
  </code></pre>
  
  <p>Any idea ?</p>
  
  <p>thank you </p>