Help for this page

Select Code to Download


  1. or download this
    print "==============\n\n";
    print "| COMMODITY: |\n\n";
    ...
    $lore = <STDIN> until defined $lore;
    chomp $lore;
    cls();
    
  2. or download this
    sub prompt_for_value {
        my ($label) = @_;
    ...
    
    my $cmmdty = prompt_for_value("COMMODITY");
    my $lore   = prompt_for_value("LOADED OR EMPTY");