use Getopt::Long;

GetOptions (
    'v|verbose'    => \( my $VERBOSE  = 0 ),
);

if ($VERBOSE) {
  ...
}