use MIDI;  # which "use"s MIDI::Event;
my @lyrics;
MIDI::Opus->new( {
     "from_file" => $ARGV[0],
     "exclusive_event_callback" => sub{push @lyrics,  $_[2],$_[1]\n"},
     "include" => \@MIDI::Event::Text_events
   } );

##</code><code>##

"Happy,300"
"Birthday,400"
"To,80"
"You,500"