just some OO coding practive in Perl