I want to send mail using perl,the following is my code.
There are not any error or warning when the program run.
But i can not receive the mail. Please help me ! thanks!
use Net::SMTP;
$smtp = Net::SMTP->new('192.168.1.169') or die "Can not connect to the mail
server : $! \n";
$smtp->mail('[EMAIL PROTECTED]');
$smtp->to('[EMAIL PROTECTED]');
$smtp->data();
$smtp->datasend("To: postmaster\n");
$smtp->datasend("\n");
$smtp->datasend("A simple test message\n");
$smtp->dataend();
$smtp->quit;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
