Altreus

#!/usr/bin/perl
use warnings;
use strict;

package MyBot;
use base qw( Bot::BasicBot );

# the 'said' callback gets called when someone says something in
# earshot of the bot.
sub said {