#!/usr/bin/perl

if ($^O eq 'linux') { $LINUX=1; };

if ($LINUX) {
print STDERR "OS is Linux\n";
use MIDI::ALSA ('SND_SEQ_EVENT_PORT_UNSUBSCRIBED',
                'SND_SEQ_EVENT_SYSEX');
MIDI::ALSA::client('test',1,1,1);
MIDI::ALSA::connectfrom(0,'MidiSport 4x4:0');
MIDI::ALSA::connectto(1,'MidiSport 4x4:0');
MIDI::ALSA::start();

}