9 my $isisdb = shift @ARGV || '/data/isis_data/ps/LIBRI/LIBRI',
10 my $debug = shift @ARGV;
12 my $isis = IsisDB->new (
19 print "rows: ",$isis->{'maxmfn'},"\n\n";
21 for(my $mfn = 1; $mfn <= $isis->{'maxmfn'}; $mfn++) {
22 print STDERR Dumper($isis->to_hash($mfn)),"\n" if ($debug);
23 print $isis->to_ascii($mfn),"\n";