my $verbose = (@ARGV && $ARGV[0] eq '-v' && shift);