10 my $file = shift @ARGV || die "usage: $0 file.marc\n";
11 my $debug = shift @ARGV;
13 my $marc = new MARC::Fast(
18 print STDERR "$file has ",$marc->count," records...\n\n";
20 for my $mfn (1 .. $marc->count) {
21 my $rec = $marc->fetch($mfn) || next;
23 foreach my $f (keys %{$rec}) {
24 print "$f\t",$rec->{$f},"\n";