#!/usr/bin/perl

my %cmds = map { (/(.*)Cmd/) => { do $_ } } <*Cmd.pm>;

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