#!/usr/bin/perl

die "No filename" unless @ARGV;
use MIDI;  # which "use"s MIDI::Event;
MIDI::Opus->new( {
"from_file" => $ARGV[0],
"exclusive_event_callback" => sub{print "$_[2]\n"},
"include" => \@MIDI::Event::Text_events
} ); # These options percolate down to MIDI::Event::decode
exit;

