#! /usr/bin/perl
my $Version = '1.1';
use MIDI;
my $opus = MIDI::Opus->new({ 'from_file' => $ARGV[$[] || '-'});
$opus->dump({ 'dump_tracks' => 1 });

=pod

=head1 NAME

mididump - dumps a MIDI file in a text format provided by MIDI::Perl

=head1 SYNOPSIS

 mididump filename.mid
 muscript -midi filename | mididump

=head1 DESCRIPTION

Dumps (displays) a MIDI file, in the human-readable
text-format provided by I<MIDI::Perl>'s $opus->dump function.

Assuming you've installed MIDI::Perl, then C<perldoc MIDI::Event>
should document the format in which the various MIDI-events are represented.

This is mididump version 1.1

=head1 AUTHOR

Peter J Billam  http://www.pjb.com.au/comp/contact.html

=head1 CREDITS

Based on Sean Burke's I<MIDI::Perl> CPAN module.

=head1 SEE ALSO

 http://search.cpan.org/~sburke
 http://search.cpan.org/~pjb
 http://www.pjb.com.au/muscript
 http://www.pjb.com.au/midi

=cut