sub parse_args {
  GetOptions (
      'help|h|?!'       => \$help,
      'interactive!'    => \$interactive,
      'man!'            => \$man
  ) or pod2usage(2);
  pod2usage(1) if $help;
  pod2usage(-exitstatus  => 0, -verbose => 2) if $man;
}