use POE;
use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init($DEBUG);

POE::Session->create(
    inline_states => {
    _start  => sub {
      $poe_kernel->yield("sub10");
      $poe_kernel->yield("sub15");
                   },
    sub10 => \&sub10,
    sub15 => \&sub15,
});

$poe_kernel->run();

sub sub10 {
    DEBUG "sub10";
    $poe_kernel->delay("sub10", 10);
}

sub sub15 {
    DEBUG "sub15";
    $poe_kernel->delay("sub15", 15);
}