Net::IRC "on kick(ed)"

[mr2]

how should the sub that start's on kick event look like?
i mean how to check if my perl bot is kicked off the channel?

how "sub on_kick {}" &
"$conn2->add_global_handler('msg', \&on_msg);" should look like?

(i haven't found it the example that comes with Net::Irc module ;/)

i have an example :

#!/usr/bin/perl
use Net::IRC;
use strict;
my $server = "myserver";
my $irc = new Net::IRC;
my $conn1 = $irc->newconn(Nick    => "test1",
                          Server  => $server,
                          Port    => 6667);
my $conn2 = $irc->newconn(Nick    => "test2",
                          Server  => $server,
                          Port    => 6667);
$conn1->add_global_handler('msg', \&on_msg);
$conn2->add_global_handler('msg', \&on_msg);
$irc->start;
sub on_msg {
    my ($self, $event) = @_;
    my $who = $event->nick;
    $self->privmsg($who, "hello, $who!!");
}