#!/usr/bin/env perl
use strict;
use warnings;

use MIDI::RtController ();

my $input_names = shift || 'keyboard,pad,joystick'; # midi controller devices
my $output_name = shift || 'usb'; # midi output
my $verbose     = shift || 1;

my @inputs = split /,/, $input_names;

my $controllers = MIDI::RtController::open_controllers(\@inputs, $output_name, $verbose);

$controllers->{ $inputs[0] }->run;
