Select Code to Download

#!/usr/bin/env perl

...
else {
    say $opt{input}, ' (quiet)';
}

$ pm_getopt_arg.pl ex-post-facto
Before assigning $opt{input}:
ex-post-facto (quiet)
After assigning $opt{input}:
ex-post-facto (quiet)

$ pm_getopt_arg.pl -v ex-post-facto
Before assigning $opt{input}:
ex-post-facto (verbose)
After assigning $opt{input}:
ex-post-facto (verbose)