Help for this page
#If they arguments are in @ARGV while (shift){ ($arg,$val)=split /=/; $args{$arg}=$val; }
'-Dname1' => 2 '-Dname2.3' => "anything" '-Djetty.home' => 'c:\a\b\c'