Select Code to Download

use strict;
use warnings;
...

print "Excellent choice! ===> [ @path ]\n";

Excellent choice! ===> [ kill cow ]

sub choose {
    my @list = @_;
...
    return $tc-> complete
}

--- Completion.pm.orig  Sat Feb 23 18:39:15 2013
+++ Completion.pm       Mon Feb 13 15:06:00 2023
...
+  my @vals = split(/[\s,]+/, $this->{validation});

   VALIDATE_OPTIONS: foreach my $val (@vals) {

Choose (kill select):              # TAB (for choices)
kill   select
...
Choose (give take_to): take_to     # tTAB (to complete) + TAB or ENTER
Choose (wood sea desert): desert   # dTAB (to complete) + TAB or ENTER
Excellent choice! ===> [ select camel take_to desert ]