'show-tests' => \$G::show_tests, # display tests as applied to each message
'man' => sub { pod2usage(-verbose => 2, -exit => 0, -noperldoc => system('perldoc -V >/dev/null 2>&1')) },
'help' => sub { pod2usage(-verbose => 1, -exit => 0) },
'show-tests' => \$G::show_tests, # display tests as applied to each message
'man' => sub { pod2usage(-verbose => 2, -exit => 0, -noperldoc => system('perldoc -V >/dev/null 2>&1')) },
'help' => sub { pod2usage(-verbose => 1, -exit => 0) },