[Hook::AfterMint]
. = use Term::Prompt;
. = use File::Util;
. = my $root = $_[0]->{mint_root}->canonpath;
. = my $command = prompt('e',  "Enter command name: ", '', '', '[a-z]+');
. = $command =~ s/\s//g;
. = my $old_file = File::Spec->catfile($root, 'bin', 'my_command');
. = my $new_file = File::Spec->catfile($root, 'bin', $command);
. = rename $old_file, $new_file;
. = my $file = File::Util->new();
. = $file->write_file(file => $new_file, mode => 'append', content => "\n# PODNAME: $command");
. = my $subcmds = prompt('x',  "Enter subcommand names: ", '', '');
. = $subcmds =~ s/\s//g;
<snip>More code to generate the subcommands here</snip>