よろしくお願いします。定時に自分へメール送信を行おうと、次のメール送信用Perlプログラムを組みました。
送信ポートは、Outbound Port25 Blockingの影響で587番になってます。送信に利用するSMTPサーバーはISPとは異なるメールサーバーです、Thunderbirdでは587番地で問題なく送受信できています。
一応エラーの検出無く終了するのですが、メールは届いてきません。どうかよろしくお願いします。

:: mtest.pl ::
use Net::SMTP; use Net::POP3;
$pop = Net::POP3->new("POP鯖");
if(!($pop->login('アカウント','パスワード')>=0)){die "Error $!";
}else{$pop->quit;}
$smtp = Net::SMTP->new("SMTP鯖:587",Hello=>"SMTP鯖:587") or die "失敗";
# $smtp = Net::SMTP->new("SMTP鯖",Port=587,Hello=>"SMTP鯖") or die "失敗";
$from = "test\@送信元ホスト";　$to = "test\@送信先ホスト";
$subject="Test";　$date = &date; #メソッド略
$smtp->mail($from);　$smtp->to($to);
$smtp->datasend("Date:$date\n");
$smtp->datasend("From:$from\n");
$smtp->datasend("To:$to\n");
$smtp->datasend("Subject:$subject\n");
$smtp->datasend("Content-Transfer-Encoding: 7bit\n");
$smtp->datasend("Content-Type: text/plain;charset=\"ISO-2022-JP\"\n\n");
$smtp->datasend("TTest\n");
$smtp->dataend();
$smtp->quit;
:: END ::

あとSocketでも組んでみましたが、"不正なファイル記述子です"と送信できませんでした。
よろしくおねがいします。