#!/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 } );