A Perl IRC Bot