package Bar;
    use strict;
    use base 'Foo';
    use fields qw(_bar _baz);
    ...