#!/usr/bin/perl -w

use strict;
use OpenIsis;
use Data::Dumper;

my @mfns = @ARGV || ( 1 );

my $db = OpenIsis::open( 'LIBRI', '-dbpath', shift @ARGV || '/data/isis_data/bug/LIBRI/' );

#my $row = OpenIsis::read( $db, $mfn, "MHL V205" );
foreach my $mfn (@mfns) {
	print "mfn: $mfn\n";

	my $row = OpenIsis::read( $db, $mfn );

	print Dumper($row);
}

