use strict;
use warnings;

my $HAVE_MIDI_ALSA = 0;
eval "use MIDI::ALSA";
if($@) {
    print "MIDI::ALSA required\n";
    exit
} else {
    $HAVE_MIDI_ALSA = 1
}

if (($^O eq 'linux') and $HAVE_MIDI_ALSA) {
    MIDI::ALSA::client('test',1,1,1);
    MIDI::ALSA::connectfrom(0,'MidiSport 4x4:0');
    MIDI::ALSA::connectto(1,'MidiSport 4x4:0');
    MIDI::ALSA::start();
}