package Bla;

use strict;
use warnings;
use base qw(Class::Accessor);
# auch Class::Accessor::Complex ansehen! 

Bla->mk_accessors(qw(name role salary));

1;