perl -e'use IO::Prompter; prompt -menu => [6..9]'

##</code><code>##

# Export the prompt() sub...
sub import {
    my (undef, $config_data, @other_args) = @_;

    # ...
    if( 0 ) { # other options that do not apply
    
    # Handler faked input specifications...
    elsif (defined $config_data) {
        $fake_input = $config_data;
    }
}

##</code><code>##

perl -e'use IO::Prompter 'fake'; prompt( -menu => [6..9] )'

##</code><code>##

perl -MIO::Prompter -e'prompt -menu => [6..9]'