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

my $cmmdty = <STDIN>;
$cmmdty = <STDIN> until defined $cmmdty;
chomp $cmmdty;
cls();

print "====================\n\n";
print "| LOADED OR EMPTY: |\n\n";
print "====================\n\n";

my $lore = <STDIN>;
$lore = <STDIN> until defined $lore;
chomp $lore;
cls();

##</code><code>##

if ($cmmdty eq 'NONE') {
print "E"\n";
} elsif {
print "L"\n;
}