#If they arguments are in @ARGV
while (shift){
($arg,$val)=split /=/;
$args{$arg}=$val;
}

##</code><code>##

'-Dname1' => 2 
'-Dname2.3' => "anything" 
'-Djetty.home' => 'c:\a\b\c'