Select Code to Download

package A;
use B;
...
    my ($class) = @_;
    bless {_baz => $_[1], _qux => $_[2],}, $class;
}

my $o = A->new('a', 'b', 'c', 'd');