Select Code to Download

use strict;
...
 
$cui->mainloop;

https://metacpan.org/pod/Term::Complete

$input = Complete('prompt_string', \@completion_list);