sub { $midi_indev = $midi_outdev; ...}