package User; use strict; use warnings; use base 'Class::Accessor'; User->mk_accessors(qw/name passwort/); 1;