#!/usr/bin/env perl

use MIDI;

foreach $fn (@ARGV) {
	my $opus = MIDI::Opus->new({"from_file" => $fn});
	foreach my $track ($opus->tracks()) {
		foreach my $event ($track->events()) {
			if ($event->[0] eq "sysex_f0") {
				print chr(0xF0) . $event->[2];
			}
		}
	}
}