почему не отсылает ничего?

use IO::Socket;
my $socket = IO::Socket::INET->new ("194.67.23.111:25");
defined $socket or die "ERROR: $!";
$socket->print ("HELO1512");
$r = <$socket>;
$socket->print ("MAIL FROM:1man <1man\@mail.ru>1512");
$r = <$socket>;
$socket->print ("RCPT TO: 2man <2man\@mail.ru>1512");
$r = <$socket>;
$socket->print ("DATA1512");
$r = <$socket>;
$socket->print ("From:1man<у меня тут ничего нет, но тут обязательно писать мыло 1man?>\nTo:2man<2man\@mail.ru>\nSubject:тестируемя. \n\nУх, если получится - будет супер!1512");
$r = <$socket>;
$socket->print ("\.1512");
$r = <$socket>;
$socket->print ("QUIT1512");
$r = <$socket>;
sleep(1);

Спасибо, проверю...