cmd.pl

#!/usr/local/bin/jperl

use strict;
use warnings;
use Getopt::Compact::WithCmd;
use Data::Dumper;

my $go = Getopt::Compact::WithCmd->new(
    modes => [qw/verbose/],
    global_struct => [
        [ [qw/o output/], 'output filename', '=s', undef, { required => 1 } ],
    ],  
    command_struct => {
        foo => {
            options => [
                [ [qw/d define/], 'define variables', '=s%', undef, { required => 1 } ],
            ],  
            desc => 'this is foo',
        },  
    },  
);

my $opt = $go->opts;
my $cmd = $go->command || '';;
print "opt: ", Dumper $opt;
print "command: $cmd\n";
print "\@ARGV: ", Dumper \@ARGV;
__END__

simple.pl

#!/usr/local/bin/jperl

use strict;
use warnings;
use Getopt::Compact::WithCmd;
use Data::Dumper;

my $go = Getopt::Compact::WithCmd->new(
    modes => [qw/verbose/],
    global_struct => [
        [ [qw/o output/], 'output filename', '=s', undef, { required => 1 } ],
    ],  
);

my $opt = $go->opts;
print "opt: ", Dumper $opt;
print "\@ARGV: ", Dumper \@ARGV;
__END__

subsub.pl

#!/usr/local/bin/jperl

use strict;
use warnings;
use Getopt::Compact::WithCmd;
use Data::Dumper;

my $go = Getopt::Compact::WithCmd->new(
    global_struct => [
        [ [qw/v verbose/], 'verbose mode' ],
    ],
    command_struct => {
        foo => {
            options => [
                [ [qw/d define/], 'define variables', '=s%', undef, { default => { hoge => 'fuga' } } ],
            ],
            desc => 'this is foo',
            command_struct => {
                bar => {
                    options => [
                        [ [qw/f force/], 'force overwrite' ],
                    ],
                    desc => 'bar',
                },
            },
        },
        hoge => {
            desc => 'Hoge Hoge',
        },
    },
);

my $opt  = $go->opts;
my $cmd  = $go->command || '';
my $cmds = $go->commands;

print "opt: ", Dumper $opt;
print "command: $cmd\n";
print "commands: ", Dumper $cmds;
print "\@ARGV: ", Dumper \@ARGV;
__END__