怎样把指定远程目录下的文件都下载到本机

怎样把指定远程目录下的文件都下载到本机
这是我看例子修改的代码，但是一次只能取一个文件，就是写成循环取也不行
[code]
# Figure 6.1: Downloading a single file with Net::FTP

use Net::FTP;

use constant HOST=>'192.168.0.199';
use constant LOGIN=>'inter';
use constant PASSWD=>'inter123';
use constant RDIR=>'/home/inter/debian';


my @files;


my $ftp = Net::FTP->new(HOST) or die "Couldn't connect: $@\n";
$ftp->login(LOGIN,PASSWD) or die $ftp->message;
$ftp->cwd(RDIR) or die $ftp->message;
@files=($ftp->ls);
print "@files \n";
$ftp->get(@files) or die $ftp->message;
$ftp->quit;
[/code]

输出
[code]
[/home/inter/lp/perl>]ftp.perl
bootgrub.rar initrd.gz initrd.list vmlinuz
[/home/inter/lp/perl>]ls
a.perl e12.perl e2.perl e4.perl e6.perl e8.perl findf.perl initrd.gz perl.txt words
e10.perl e1.perl e3.perl e5.perl e7.perl e9.perl ftp.perl lsfile.perl test
[/code]

我的系统是 redhat
怎么只把initrd.gz 下载下来了。
试过 for循环，但是似乎不行。

这里是高级区。。。。。。.
这里是高级区。。。。。。。。
希望你去新手区问问

foreach (@files) {-- .
foreach (@files) {
$ftp->get($_) or die $ftp->message;
}
.....................
.....................