A simple ircbot written in perl