Net::SMTP->new( Port=>587 );

Net::SMTPなら、こんなんじゃなかったっけ