Perl Net::FTP spørgsmål - Unexpected EOF on command channel

Jeg prøver at bruge Net::FTP i Perl, mit problem er at ls ikke virker, og forbindelsen lukker. Jeg kører mod en standard FTP server på Solaris 9.

Kender nogen dette problem ?

  $ftp = Net::FTP->new("172.17.16.xxx", Debug => 1, Timeout => 120, Passive => 1)
        or die "Cannot connect to Sparesun: $@";

  print $ftp->message;

  $ftp->login('xxxxx','xxxxxxx')
        or die "Cannot login ", $ftp->message;

  print $ftp->message;


  $ftp->type("A");


  print $ftp->message;

her går det galt, både ls og dir

  @files = $ftp->dir();
  foreach $file (@files) {print "$file\n"};


  $ftp->quit;

Debug trace

D:\Perl\Projects\Perl_Net_FTP>d:\perl\bin\perl.exe ftp1.pl d:\perl\projects\perl
_net_ftp\input.ini
Net::FTP>>> Net::FTP(2.75)
Net::FTP>>>  Exporter(5.58)
Net::FTP>>>  Net::Cmd(2.26)
Net::FTP>>>  IO::Socket::INET(1.29)
Net::FTP>>>    IO::Socket(1.29)
Net::FTP>>>      IO::Handle(1.25)
Net::FTP=GLOB(0x1ca0db0)<<< 220 sparesun FTP server ready.
sparesun FTP server ready.
Net::FTP=GLOB(0x1ca0db0)>>> user admin
Net::FTP=GLOB(0x1ca0db0)<<< 331 Password required for admin.
Net::FTP=GLOB(0x1ca0db0)>>> PASS ....
Net::FTP=GLOB(0x1ca0db0)<<< 230-No directory! Logging in with home=/
Net::FTP=GLOB(0x1ca0db0)<<< 230 User admin logged in.
No directory! Logging in with home=/
User admin logged in.
Net::FTP=GLOB(0x1ca0db0)>>> TYPE A
Net::FTP=GLOB(0x1ca0db0)<<< 200 Type set to A.
Type set to A.
Net::FTP=GLOB(0x1ca0db0)>>> PASV
Net::FTP: Unexpected EOF on command channel at ftp1.pl line 110
Cannot change directory Connection closed at ftp1.pl line 120, <DATA> line 164.
Connection closed