[解決]ロリポップ Perl Net::SMTPでメール送信できない

昨日から突然メールが送信できなくなった。

どうやらセキュリティが強化されたようで、、、

と言うより、、、

  $smtp = Net::SMTP->new('localhost');

のまま運用していた事が問題だったようで。

  $smtp = Net::SMTP->new('smtp.lolipop.jp');

とすることで、何事も無かったかのように動くようになった。

結論：

使い回しが利くように、

  $mailhost = 'smtp.lolipop.jp';
$smtp = Net::SMTP->new($mailhost);

とするのが正解。