Select Code to Download

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;
}