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

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.