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