Select Code to Download

use Curses::UI;
my $cui = new Curses::UI;
...
$cui->set_binding( sub { exit(0); } , "\cC");
$cui->mainloop;