Select Code to Download

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

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

use constant QUIT_COMPUTER_COMMAND => 5;

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

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

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