my $foo=Foo->new(100);
  my $foo=Foo->new(100,%ARGS);
  my $bar=Bar->new(%ARGS);
  my $bar=Bar->new();