Select Code to Download

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

use Getopt::Long qw[ :config no_ignore_case ];
use DDS;
local @ARGV = qw[ -l -L asdf ];
...
           L => 'asdf',
           l => 1
         };