I've done it like this:

my @files = $ftp->ls(); 
foreach my $file(@files) {
    $ftp->get($file)
        or die "get failed", $ftp->message;
    }
[download]