Perl based IRC bot