use MARC::Record;

use MARC::File::USMARC;

use strict;
use warnings;

my $file = MARC::File::USMARC->in(\*STDIN);
while (my $marc = $file->next) {

    my $title     = $marc->title_proper;
    my $author    = $marc->author;

    my $edition   = $marc->subfield('250', 'a');
    my $isbn      = $marc->subfield('020', 'a');

    my $imprint   = $marc->field('260');
    my $place     = $imprint->subfield('a');
    my $publisher = $imprint->subfield('b');
    my $year      = $imprint->subfield('c');
    
}
$file->close;