perlOO howto and some else