sub entry_prompter
{
    my ( $labels, $prompts ) = @_;
    my %entry;
    for my $i ( 0 .. $#$labels ) {
        my $user_input = prompt $$prompts[$i], -escape;
        last if ( $user_input eq "\e" );
        $entry{$$labels[$i]} = $user_input;
    }
    return %entry;
}