ロリポップでCGIでSSLでメール送信できない

Question

前提・実現したいこと

ロリポップでSMTP認証(SSL)を使ってメールを送信したい。

ロリポップは送信ポート(SSL)として465のみ。
しかしWin/Macなどのメーラーでは465での送信は可能ですが、
PerlでメールをSMTP認証を介して送信しようとする時、
「465」では送信できず「25 or 587」では送信ができます。

プリンタ複合機にメール送信機能がありますが、
プリンタも「465」はダメで「587」なら可能です。

発生している問題・エラーメッセージ

SMTPサーバへの接続失敗

該当のソースコード

        my $SMTP = Net::SMTP->new('smtp.example.com',Port=>'465');

試したこと

• my $SMTP = Net::SMTP->new('smtp.example.com');
• my $SMTP = Net::SMTP->new('smtp.example.com',Port=>'587');
• my $SMTP = Net::SMTP->new('smtp.example.com:587');

ならば送信ができます。

ググって対応策としてよく出てくるのが下記でした。

require Net::SMTP::SSL;
my $SMTP = Net::SMTP::SSL->new($host,Port=>$port);

これだと500エラーになります。

Net::SMTP::SSL

これが使えないようです。

Answer 1

Perlドキュメントより、

// the same with direct SSL
$smtp = Net::SMTP->new('mailhost',
                       Hello => 'my.mail.domain',
                       Timeout => 30,
                       Debug   => 1,
                       SSL     => 1,
                      );

「Port」ではなく「SSL」にすることで、エラー無く送信はできるようになりました。