$ perl -MGetopt::Long -MDDS -e " Getopt::Long::Configure(qw[no_ignore_case]); GetOptions( \%h, qw[ l! L:s ] ); Dump(\%h); " -- -l -L asdf
$HASH1 = {
           L => 'asdf',
           l => 1
         };