A Perl IRC Statistics Generator