Select Code to Download

sub init_commands
{
...

    ... and so on..
}

            while( my ($command, $params) = each %Commands)
            {
...
                    }
                }
            }