perl Attribute-Handlers