Help for this page
print "==============\n\n"; print "| COMMODITY: |\n\n"; ... $lore = <STDIN> until defined $lore; chomp $lore; cls();
if ($cmmdty eq 'NONE') { print "E"\n"; } elsif { print "L"\n; }