mdb-export -d , file.mdb tablename | gzip -9 -c > file.csv.gz

##</code><code>##

use IPC::Open2;
use strict;

opendir DIR, ".";
my @bancos = grep { /.mdb$/ } readdir DIR;
closedir DIR;

foreach my $db (@bancos) {
        chomp $db;
        print "$db\n";
        open TABLES, "mdb-tables -1 $db |" || die $!;
        my @tables = <TABLES>;
        close TABLES;
        my $dbdir = $db;
        $dbdir =~ s/\.mdb$//;
        mkdir $dbdir || die $!;
        foreach my $table (@tables) {
                chomp $table;
                open('MDBEXPOUT', "mdb-export -d , '$db' '$table' |") || die $!;
                $table =~ s/\W/_/g;
                open('OUTFILE', ">$dbdir/$table.csv.gz") || die $!;
                open2('>&OUTFILE', '<&MDBEXPOUT', "gzip", "-9", "-c") || die $!;
                wait;
                close MDBEXPOUT;
                close OUTFILE;
                print "$dbdir/$table\n";
        }
}