sub choose {
    my @list = @_;
    
    use Term::Completion;
    STDOUT-> autoflush( 1 );
    
    my $tc = Term::Completion-> new(
        prompt     => "Choose (@list): ",
        choices    => \@list,
        columns    => 80,
        validation => 'nonempty fromchoices',
    );
    return $tc-> complete
}