getopt_compact.pl

#!/usr/bin/env perl

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

my $getopt = Getopt::Compact->new(
    name => 'mygzip',
    modes => [ qw(verbose) ],
    args => 'FILE',
    version => '0.1',
    struct => [
        [ [ qw(f force) ], 'force overwrite of output file and compress links' ],
        [ [ qw(l level) ], 'compress level', '=i' ],
        [ [ qw(S suffix) ], 'use suffix on compressed files', '=s' ],
    ]
);

my $options = $getopt->opts;
my $file = shift @ARGV;
unless ($file) {
    print STDERR $getopt->usage;
    exit 1;
}

print "options -----\n";
print Dumper $options;