kick 

The "kick" event is triggered upon receipt of a KICK message, which means that someone on a channel with the client (or possibly the client itself!) has been forcibly ejected. 

##</code><code>##

$conn->add_global_hander('kick', \&on_kick);

sub on_kick {
    my ($self, $event) = @_;
    my $who = $event->nick;
    # $who is the person who was kicked.
}

##</code><code>##

use Data::Dumper;

# ...

sub on_kick {
    my ($self, $event) = @_;
    print Dumper($event);
}