#!/usr/bin/perl -w

use strict;
use MIDI;

sub proc_file($);
my $file;
foreach $file (@ARGV) {
    proc_file($file);
}


sub proc_file($) {
    my $file = shift;

    my $opus = MIDI::Opus->new({
	'from_file' => $file,
	no_eot_magic => 1,
    });
    $opus->dump({ "dump_tracks" => 1 });
}
