local $_;
do {
    do {
        print "> ";
        defined( $_= <STDIN> )   or  die "EOF on STDIN";
        chomp( $_ );
    } until(  /\S/  );
} until(  'FALSE' eq cmd_select( split ' ' )  );