!/usr/bin/env perl

use MIDI;

my $file = shift;

die "Usage: dump.pl midi-file\n" unless defined $file;

MIDI::Opus->new( { from_file => $file } ) ->dump( { dump_tracks => 1 } );