Anonymous

foreach my $servname ( keys( %$conf ) ) {

  $bots{$servname} = POE::Component::IRC->spawn(
        nick   => $conf->{$servname}->{nick},
        server => $servname,
        port => 6667,
    );
}


my $sess = POE::Session->create(
    package_states => [
        'main' => [qw(
                   _start
                   irc_plugin_add
                   irc_001
                   )
                        ],
    ],
    heap => { irc=>\%bots }

);