use Data::Dumper;

# ...

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