sub blabla {
  my ($poe_args) = shift;
  $poe_args->{KERNEL}->yield("bla");
  delete $poe_args->{HEAP}->job;
}