package Bla; use strict; use warnings; use base qw(Class::Accessor); # auch Class::Accessor::Complex ansehen! Bla->mk_accessors(qw(name role salary)); 1;