use Pod::Usage;
use Getopt::Long;
Getopt::Long::Parser->new(config => ['gnu_getopt'])
   ->getoptions(
      'help|h'    => sub { pod2usage(1) },
      'man'       => sub { pod2usage(-exitval => 1, -verbose => 2) },
      'verbose|v' => \my $verbose,
      'force|f'   => \my $force,
      'table=s'   => \my $table,
   )
   or pod2usage(2);