Perl logger object module