Perl IRC logger