sub ksh_select(&@) {
  my $cr = shift;
  my $prompt = $ENV{'PS3'} || '#? ';
  local *ARGV;
  local $| = 1;
  local $_;
  while (1) {
    for my $i ( 0 .. $#_ ) {
      print STDOUT $i+1, ") $_[$i]\n";
    }
    print STDOUT $prompt;
    $_ = <>;
    defined $_ or return;
    chomp;
    $cr->( $_ );
  }
}