#!/usr/bin/perl -w

use strict;
use MARC::File::USMARC;
use MARC::File::XML;

$| = 1;

my $rTotal = 0;
foreach my $file (@ARGV) {
    my $marcFile = MARC::File::USMARC->in($file);
    my $rCount = 0;
#    while ($marcFile->skip) {
    while (my $rec = $marcFile->next) {
#        my $xml = MARC::File::XML::record($rec);
#        print $xml . "\n\n";
        $rCount++;# if $rec->field('852');
        print "#" if ($rCount%250 == 1);
        print " $rCount\n" if ($rCount%10000 == 0);
    }
    $rTotal += $rCount;
    print "\nThere are $rCount records in $file\n";
    $marcFile->close;
}
print "There are total $rTotal records.\n";