Select Code to Download

[0]  # cat parameter_check.pl
use v5.10;
...
}
say "option c:", $options{'c'};
say "option d: ", $options{'d'};

parameter_check.pl -b -ddd

parameter_check.pl -ddd -b

[0]  # perl parameter_check.pl -ddd  -c -b
b is zero length string or equivalent
...
option c:1
Use of uninitialized value in say at parameter_check.pl line 19.
option d:

sub getopts ($;$) {
    my ($argumentative, $hash) = @_;
...
        shift(@ARGV);
        }
    }