Select Code to Download

sub cmd_move {
    my ($package, $direction) = @_;
...
        main->$cmd(@args);
    }
}

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