Perl logging tool