just some OO coding practice with Perl