package Commands;
sub cmd_move {....};
.
.
.
package main;
while (<STDIN>) {
  ...
  if (Commands->can($cmd)) {...}
}