if (@ARGV && $ARGV[0] eq '-v') {
        $verbose = 1;
        shift @ARGV;
    }