Perl IRC Bot