Select Code to Download

Select or download this

# define option names and defaults
our $UNIQUE_OPT         = q/unique/;
...
    die "-$UNIQUE_OPT and -$FORCE_OPT are mutually exclusive." 
      . " See $SCRIPT_NAME -help for syntax.";
}

Select or download this

C:\>perl myscript stuff
Error in option spec: "$VERBOSE_OPT"
Error in option spec: "$FORCE_OPT"
Error in option spec: "$OUTPUT_EXT_OPT=s"
Error in option spec: "$UNIQUE_OPT"

Select or download this

my @option_config = split ' ',
                    qq( $UNIQUE_OPT
...
                        $VERBOSE_OPT
                        $OUTPUT_EXT_OPT=s
                      );

Select or download this
```
split(' ', q/STRING/);
```

Select or download this

my @option_config = qw" $UNIQUE_OPT
                        $FORCE_OPT
                        $VERBOSE_OPT
                        $OUTPUT_EXT_OPT=s
                      ";