Select Code to Download

#!/usr/bin/perl

...

use Data::Dumper;
print Dumper \%cmds;

$ cat *Cmd.pm ; ./832111.pl 
%barCmd = (     # barCmd.pm
...
                     'FOO' => 42
                   }
        };