POE::Session->create(
   inline_states => {
     _start => sub { $_[KERNEL]->yield("next") },
      next   => sub {
       print "listening...\n";
       $_[KERNEL]->delay(next => 1);
     },
   },
 );
 
 POE::Kernel->run();
# exit