use strict; use warnings; use Getopt::Long qw( :config posix_default bundling no_ignore_case ); GetOptions('verbose|v' => \my $opt_verbose) or die("usage\n"); print( $opt_verbose || 0, "\n");