Perl IRC bot