Select Code to Download

local $_;
do {
    do {
...
        chomp( $_= <STDIN> );
    } until(  /\S/  );
} until(  'FALSE' eq cmd_select( split ' ' )  );

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

local $_;
do {
    do {
...
        chomp( $_ );
    } until(  /\S/  );
} until(  'FALSE' eq cmd_select( split ' ' )  );

    lots of work to get next thing;
    # possibly giving up for any of several reasons
    goto TOP   if  thing isn't interesting;
...
    }
    finish up;
    return result;

sub get_next_interesting_thing {
    do {
        return   if  ! get_next_thing;
...
} while(  get_next_valid_thing  );
finish up;
return result;