Select Code to Download

%command_list = 
  qw(
...
       help          help()                        
       log           log_status()
  );

%log =
  qw(start   start_logs()
     stop    stop_logs()
    );
}

$command = <STDIN>; # assume $command="log start"
   @cl =split / /,$command;
...
   
   eval $command_action; die "\n" if $@;
}