#!/usr/bin/perl -w

use strict;
use blib;

use IsisDB;
use Data::Dumper;

my $isis = IsisDB->new (
	isisdb => '/data/isis_data/ps/LIBRI/LIBRI',
);

print "rows: ",$isis->{'maxmfn'},"\n\n";

for(my $mfn = 1; $mfn <= $isis->{'maxmfn'}; $mfn++) {
	print $isis->to_ascii($mfn),"\n";

}

