print "==============\n\n";
print "| COMMODITY: |\n\n";
print "==============\n\n";

my $cmmdty = <STDIN>;
$cmmdty = <STDIN> until defined $cmmdty;
chomp $cmmdty;

if ($cmmdty) {
if ($cmmdty eq "NONE") {
chomp(my $lore = "E");
} else {
chomp(my $lore = "L");
cls();