Select Code to Download

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

my $midi_outdev_ref = \$midi_outdev;
...
...
    ...
    sub { my $midi_indev = $$midi_outdev_ref; ... },
    ...

#!/usr/bin/env perl

...
)->pack();

MainLoop();