Хочу сделать проверялку SMTP, в общем пример практически из мана,
$smtp = new Net::Telnet (Telnetmode => 0);
$smtp->open (Host => $hostname,
Port => $port);
$cmd = $smtp->getline;
die $cmd unless $cmd =~ /^220/;
print $cmd;
$smtp->print ("helo localhost");
$cmd = $smtp->getline;
die $cmd unless $cmd =~ /^250/;
print $cmd;
$smtp->print ("mail from: <my@example.com>");
$cmd = $smtp->getline;
die $cmd unless $cmd =~ /^250/;
print $cmd;
получаю:
220 ESMTP Sendmail
250 Hello localhost [127.0.0.1], pleased to meet you
500 5.5.1 Command unrecognized: ""
Не пойму, почему он на mail from ругается, т.е. ему видимо вместо команды отправляется \\n
, но кто и зачем это делает?!