Help for this page
package A; use B; ... my ($class) = @_; bless {_baz => $_[1], _qux => $_[2],}, $class; }
my $o = A->new('a', 'b', 'c', 'd');