Select Code to Download

print "==============\n\n";
print "| COMMODITY: |\n\n";
...
$lore = <STDIN> until defined $lore;
chomp $lore;
cls();

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

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