An Perl based IRC bot