use Getopt::Long;
use MARC::Batch;
use Unicode::Normalize;
+use MARC::File::XML ( BinaryEncoding => 'utf-8' );
my $conf = {}; # configuration hashref
my $count = 0;
$batch->warnings_off();
while ( eval { $record = $batch->next } ) {
+ if ($@)
+ { print XF "MARC::Batch error $@"; next }
my $marc = undef;
$count++; progress_ticker();
unless ( defined $record )