package X;
use base qw/ Class::Accessor /;
X->mk_accessors( qw/ foo bar / );
...
package Y;
use base 'X';
# nun hat auch Y die Attribute foo und bar