rendered paste bodyuse MARC::Record;
use MARC::File::XML (BinaryEncoding => 'UTF-8');
my $test = <<EOF;
<record xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd" xmlns="http://www.loc.gov/MARC21/slim"><leader>01350cam a2200397 a 4500</leader><controlfield tag="001">30384248</controlfield><controlfield tag="003">SITKA</controlfield><controlfield tag="005">20110504213717.0</controlfield><controlfield tag="008">080521s2008 nyu b 000 1 eng</controlfield><datafield tag="010" ind1=" " ind2=" "><subfield code="a">2008273747</subfield></datafield><datafield tag="035" ind1=" " ind2=" "><subfield code="a">(OCoLC)ocn187394634</subfield></datafield><datafield tag="040" ind1=" " ind2=" "><subfield code="a">DLC</subfield><subfield code="c">DLC</subfield><subfield code="d">YDXCP</subfield><subfield code="d">BAKER</subfield><subfield code="d">GP5</subfield><subfield code="d">MVCLD</subfield><subfield code="d">BTCTA</subfield><subfield code="d">CNWHS</subfield></datafield><datafield tag="020" ind1=" " ind2=" "><subfield code="a">9780345495006 (pbk.)</subfield></datafield><datafield tag="020" ind1=" " ind2=" "><subfield code="a">0345495004 (pbk.)</subfield></datafield><datafield tag="029" ind1="1" ind2=" "><subfield code="a">AU@</subfield><subfield code="b">000043111023</subfield></datafield><datafield tag="035" ind1=" " ind2=" "><subfield code="a">(OCoLC)187394634</subfield></datafield><datafield tag="050" ind1="0" ind2="0"><subfield code="a">PS3608.O725</subfield><subfield code="b">L68 2008</subfield></datafield><datafield tag="082" ind1="0" ind2="0"><subfield code="a">813/.6</subfield><subfield code="2">22</subfield></datafield><datafield tag="049" ind1=" " ind2=" "><subfield code="a">MAIN</subfield></datafield><datafield tag="100" ind1="1" ind2=" "><subfield code="a">Horan, Nancy.</subfield></datafield><datafield tag="245" ind1="1" ind2="0"><subfield code="a">Loving Frank :</subfield><subfield code="b">a novel /</subfield><subfield code="c">Nancy Horan.</subfield></datafield><datafield tag="250" ind1=" " ind2=" "><subfield code="a">Ballantine Books trade pbk. ed.</subfield></datafield><datafield tag="260" ind1=" " ind2=" "><subfield code="a">New York :</subfield><subfield code="b">Ballantine Books,</subfield><subfield code="c">2008.</subfield></datafield><datafield tag="300" ind1=" " ind2=" "><subfield code="a">377 p. ;</subfield><subfield code="c">21 cm.</subfield></datafield><datafield tag="490" ind1="1" ind2=" "><subfield code="a">Random House reader's circle</subfield></datafield><datafield tag="504" ind1=" " ind2=" "><subfield code="a">Includes bibliographical references (p. [361]-362).</subfield></datafield><datafield tag="600" ind1="1" ind2="0"><subfield code="a">Wright, Frank Lloyd,</subfield><subfield code="d">1867-1959</subfield><subfield code="v">Fiction.</subfield></datafield><datafield tag="600" ind1="1" ind2="0"><subfield code="a">Borthwick, Mamah Bouton,</subfield><subfield code="d">1869-1914</subfield><subfield code="v">Fiction.</subfield></datafield><datafield tag="650" ind1=" " ind2="0"><subfield code="a">Architects</subfield><subfield code="v">Fiction.</subfield></datafield><datafield tag="655" ind1=" " ind2="7"><subfield code="a">Biographical fiction.</subfield><subfield code="2">gsafd</subfield></datafield><datafield tag="655" ind1=" " ind2="7"><subfield code="a">Love stories.</subfield><subfield code="2">gsafd</subfield></datafield><datafield tag="655" ind1=" " ind2="7"><subfield code="a">Historical fiction.</subfield><subfield code="2">gsafd</subfield></datafield><datafield tag="830" ind1=" " ind2="0"><subfield code="a">Reader's circle (Random House (Firm))</subfield></datafield><datafield tag="949" ind1=" " ind2=" "><subfield code="a">BW/08 11 28/ARMCHAIR/ST</subfield></datafield><datafield tag="901" ind1=" " ind2=" "><subfield code="a">ocn187394634</subfield><subfield code="b">OCoLC</subfield><subfield code="c">30384248</subfield><subfield code="t">biblio</subfield></datafield></record>
EOF
my $record = MARC::Record->new_from_xml($test) || die $@;
print $record->as_formatted();