CPAN::Groonga

 ;
    }

=head2 Another filehandle example - Working with Net::FTP

Say you want to read all the json files from ftp://ftp.perl.org/pub/CPAN/
using Net::FTP and write them directly
to a zip archive w

ings;

    use Net::FTP;
    use Archive::Zip::SimpleZip qw($SimpleZipError);

    my $zipFile = 'json.zip';
    my $host = 'ftp.perl.org';
    my $path = '/pub/CPAN';

    my $zip = Archive::Zip::Sim

    my @files = $ftp->ls()
        or die "Cannot ls", $ftp->message;

    for my $file ( grep { /json$/ } @files)
    {
        print " Adding $file\n" ;

        my $zipMember = $zip->openMember(Nam