Вопрос по сокету

[DNK]

почему данный скрипт выводит только строку приветствия сервера:

#!/usr/bin/perl
use IO::Socket;
$socket = IO::Socket::INET->new(PeerAddr => "www.engcomp.ufrn.br",
                                    PeerPort => \'21\',
                                    Proto    => \'tcp\');
send($socket,"USER ftp\\r\\n",0);
send($socket,"PASS ftp\\r\\n\\r\\n",0);
recv($socket,$otvet,1024,0);
print $otvet;

[root@linux root]# ./1.pl
220 ProFTPD 1.2.10 Server (EngComp/UFRN ftp server) [10.13.97.254]

[NeoNox]

DNK:
почему данный скрипт выводит только строку приветствия сервера

А почему он должен выводить что-то другое?

[DNK]

[root@linux root]# telnet http://www.engcomp.ufrn.br 21
Trying 200.19.167.3...
Connected to http://www.engcomp.ufrn.br (200.19.167.3).
Escape character is \'^]\'.
220 ProFTPD 1.2.10 Server (EngComp/UFRN ftp server) [10.13.97.254]
user ftp
331 Anonymous login ok, send your complete email address as your password.
pass ftp
230 Anonymous access granted, restrictions apply.

по анологии с консолью как мне кажеться должно выводить
230 Anonymous access granted, restrictions apply.
ведь в дескриптор соккета я отправил User ftp; Pass ftp, как мне кажеться сервер должен принять логин и пароль и ответить валиден аккаунт или нет.
Если я ошибаюсь прошу поправить меня

[cr4ck3r]

а если так:

#!/usr/bin/perl
use IO::Socket;
$socket = IO::Socket::INET->new(PeerAddr => "www.engcomp.ufrn.br",
PeerPort => \'21\',
Proto => \'tcp\');
send($socket,"USER ftp\\r\\n",0);
send($socket,"PASS ftp\\r\\n\\r\\n",0);
recv($socket,$otvet,1024,0);
print $otvet,"\\n";
recv($socket,$otvet,1024,0);
print $otvet,"\\n";
recv($socket,$otvet,1024,0);
print $otvet,"\\n";

[DNK]

cr4ck3r спасибо получилось