#!/usr/bin/perl

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

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

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