#!/usr/bin/env perl
use strict; use warnings;

use Getopt::Long;
#use Getopt::Long qw(:config no_ignore_case);

my $opt_verbose = 0;
my $opt_version = 0;

GetOptions(
  "verbose|v" => \$opt_verbose,
  "version|V" => \$opt_version,
) or die "getopt failed";

print "verbose=$opt_verbose, version=$opt_version\n";