Perl script to export MARC records from Voyager to Summon