Socketverbindung zu einem FTP Server?

[Fallinger]

Hi,

versuche gerade einen kleinen FTP Client zu basteln, der erstmal nur versuchen soll sich einzuloggen und zurückzugeben ob es geklappt hat. Also stelle ich eine Verbindung zu dem Server auf Port 21 her und sende user/pass. Allerdings mag das nicht so klappen, ich bekomme zwar schön die Version des Servers ausgegeben, aber das wars dann auch schon.

Jemand ein paar Anregungen was da falsch läuft?

mfg
Fallinger

#!/usr/bin/perl

use IO::Socket;
$remote_host = "196.27.211.145";
$remote_port = "21";

$socket = IO::Socket::INET->new
  (
   PeerAddr => $remote_host,
   PeerPort => $remote_port,
   Proto    => "tcp",
   Type   => SOCK_STREAM
  )
die "Socketverbindung fehlgeschlagen $remote_host:$remote_port $!\n";

print $socket "user test";

$antwort = <$socket>;
print $antwort;

print $socket "pass test";
$antwort = <$socket>;
print $antwort;

close($socket);