Select Code to Download

use Glib;
use Term::ReadKey;
...
            }
          }
}

my $Qstdin = new Thread::Queue;
async {
...
...

my $kbinput = $Qstdin->dequeue;