sub init {
    my $self = shift;
    $self->config(
        {
            user_sc                     => 2,
        }
    );

    POE::Session->create(
    inline_states => {
        _start => sub {
                my ($kernel, $heap) = @_[KERNEL, HEAP];
                my $session_id = $_[SESSION] -> ID;
                $self->config(
                        {
                                user_session_id => $session_id,
                        }
                );
        },
       test  => sub {
        },
    }
    );
}


##</code><code>##

Error loading Can't load MyModule: Bareword "KERNEL" not allowed while "strict subs" in use at ./MyModule.pm line 34.