Select Code to Download

  COMMAND1  (1)
    VALUE1
...
  COMMAND3  (3)
    VALUE1
    ...

use strict;
use warnings;
...
    # ....
    print "process command 3, param: $var1\n";
}

C:> perl p110.pl 1 a b c
Want to process: COMMAND1 => $VAR1 = [
...

C:> perl p110.pl X a b
Unknown command X at p110.pl line 21.