Ok i've found a solution,I don't really know if it's how POE was designed to run , but reading the documentation and trying to make it work I just couldn't find any other way. I am sure that there is a "official" way or something,so if someone is kind enough please show it to me.

use warnings;
use strict;
use Tk;
use POE;

POE::Session->create
( inline_states =>
    { _start =>  sub {
            my ( $kernel, $session, $heap ) = @_[ KERNEL, SESSION, HEA
+P ];
            

            #
            #
            # _start does important stuff...
            #
            #

            $kernel->yield("some_loop");
        },
        some_loop => sub  {
            $_[KERNEL]->delay("ev_count",10);#to keep session alive
        },
    }
);
$poe_kernel->run();
exit 0;
[download]