my @dirlisting=$ftp->ls();

foreach my $file ( @dirlisting )
    {
    $ftp->get( $file ) or warn "...";
    }