#!/usr/bin/perl

use MARC::File::XML;
use MARC::Record;
use Encode;

open XML, "marc.xml";
$xml = join('', <XML>);

Encode::from_to($xml, 'iso-8859-1', 'utf-8');

my $record = MARC::Record->new_from_xml($xml);
print $record->as_formatted();