#!/usr/bin/perl
#
use Bot::BasicBot;

my $bot = Bot::BasicBot -> new(
        server => "irc.euirc.net",
        channels => ["#aaaa_chan"],
        nick => "basicbot_a"
        );

$bot -> run();

$bot -> say(who => "basicbot_a", channel => "#tobias_chan", body => "hallo" );