use strict;
use warnings;
package Sscce;

use Getopt::Long;
use Pod::Usage;

    my ($opt_help, $opt_man,
    );

# sub main {
    GetOptions(
      'help'      => \$opt_help,
      'man'       => \$opt_man,
    ) or pod2usage(-verbose => 1) && exit;

    pod2usage(-verbose => 1) && exit if defined $opt_help;
    pod2usage(-verbose => 2) && exit if defined $opt_man;
# }

1;

=pod

=head1 NAME

=head1 ARGUMENTS

=head1 OPTIONS

  --help       Brief manual
  --man        Full manual