# Check this last to avoid parsing options as Places,
#   and so don't override $opt_man verbose level
my @places  = @ARGV;
pod2usage(-verbose => 1) && exit unless @places;

##</code><code>##

GetOptions(
    "help|?" => sub { pod2usage( -verbose => 1, -exitval => 0 ); },
    "man"    => sub { pod2usage( -verbose => 2, -exitval => 0 ); },
# ...
) or pod2usage( -verbose => 1, -exitval => 1);