sub mainMenu {
    ...
    chomp (my $command = <STDIN>);
    ...

##</code><code>##

Constant subroutine main::QUIT redefined at C:/Perl/Strawberry/strawberry-perl-5.18.1.1-32bit-portable/perl/lib/constant.pm line 140.

##</code><code>##

use constant QUIT_COMPUTER_COMMAND => 5;

##</code><code>##

if ($light)
{
    ...
}
else
{
    ...
}

##</code><code>##

while (<$IN>)
{
    chomp ($loadArray[$counter] = $_);
    $counter++;
}

##</code><code>##

chomp($loadArray[$counter++] = $_) while <$IN>;