$ 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
         };


##</code><code>##

use Getopt::Long qw[ :config no_ignore_case ];
use DDS;
local @ARGV = qw[ -l -L asdf ];
GetOptions( \%h, qw[ l! L:s ] );
Dump( \%h );
__END__
$HASH1 = {
           L => 'asdf',
           l => 1
         };