package Bot::Mlapaglia;
use strict;
use parent 'Bot::BasicBot';

sub said {
    my ($self, $args) = @_;
    return "That's what she said. Heh heh.";
};

package main;
my $bot = Bit::Mlapaglia->new( ... );

$bot->run();