print 'will be too slow';
exit;

$opt_P = $Zack::File2Text::Cached::ABS_CACHE;

-d $opt_P or die("'$opt_P' not a dir");

say("Dumping to $opt_P, every . is 100 files.");


my $table_name = $Zack::File2Text::Cached::TABLE_NAME;
debug('preparing');
my $sth = $t->dbh->prepare("SELECT sum,txt FROM $table_name");
debug('executing');
$sth->execute;

debug('dumping');
my $i;
while ( my $r = $sth->fetchrow_arrayref ){
   Zack::File2Text::Cached::_fs_set(@$r);
   ++$i == 100 and print STDERR '.' and $i=0;
}

$sth->finish;

exit;
}