Note and Patch Information from midiparse.pl

Hi everybody,
I'm currently using  
midiparse.pl(http://www.speech.cs.cmu.edu/~sburke/midi-perl/scripts/ 
midiparse.pl) to see which notes are being played frequently.
However, instead of seeing the following:
         ['note_off', 96, 0, 37, 0],
I would like to see something like this:
         ['note_off', 96, 0, C6, 0],
with information about which patch was used.
How would I modify midiparse.pl so I can see this information.
Thank you.
-John