sub prompt_for_value {
    my ($label) = @_;

    my $len  = length($label);
    my $line = "=" x ($len + 5);

    # Display the prompt, eg.
    #
    #     print "==============\n\n";
    #     print "| COMMODITY: |\n\n";
    #     print "==============\n\n";
    print "$line\n\n";
    print "| $label: |\n\n";
    print "$line\n\n";

    my $value = "";
    while (1) {
        chomp(my $value = <STDIN>);
        if ($value) {
            cls();      # Is this subroutine defined?
            return $value;
        }
    }
}


my $cmmdty = prompt_for_value("COMMODITY");
my $lore   = prompt_for_value("LOADED OR EMPTY");