$ cat 3perl.pl

use strict;
use warnings;
use 5.010;
use Getopt::Long;

Getopt::Long::Configure(qw{no_auto_abbrev no_ignore_case_always});

my $verbose = "";
GetOptions ('verbose|v' => \$verbose);

say $verbose;