Select Code to Download

# simple menu/input collection
enter word: foo
you entered <foo>
enter word: q
quitting...

sub check_input {
    my $input = shift;
...
        print 'not recognized';
    }
}

sub check_input {
    my ($type, $input) = @_;
...
    }
    # etc, etc
}

while(1) {
    my $input = <>;
...
if ($input eq 'b') {
    goto BREAK:
}

my @working = (1 .. 10);
# globally scoped anonymous coderef
...
if ($input eq 'p') {
    $pop->();
}

sub check_input {
    my ($input, $opts_href) = @_;
...
SOMESPOT:
...
}