my %defaults = ();
my ($k,$v);
for (@ARGV) {
   if (($k,$v) = split('=',$_,2)) {
      $defaults{$k} = $v;
   }
   else {
      $defaults{$k} += " $v";
   }
}