无法从ftp检索多个文件

Question

我正在尝试使用Net :: FTP从ftp中检索一些文件。我正在使用retr方法，因为我需要收集内存中的所有文件。我的代码是：

 use Net::FTP;    

  $ftp = Net::FTP->new($_[2], Debug => 0)
    or die "Cannot connect to some.host.name: $@";
  $ftp->login($_[0], $_[1])
    or die "Cannot login ", $ftp->message;
  # read file list  
  @remote_files = $ftp->ls("");
  foreach $a (@remote_files) {     
     print scalar($ftp->retr($a)) # for test purposes
  }  
  $ftp->quit;  

循环的第一次运行打印出正确的Net::FTP::dataconn对象，但秒只打印1。我不想每次都重新连接下载一个新文件，任何想法我都缺少什么？