simple class PERL