gistfile1.pl

use strict;
use POE;

POE::Session->create(
    inline_states => {
        _start => sub {
            my ($kernel) = @_[ KERNEL ];
            $kernel->yield('tick', "Start!",);
        },
        tick => sub {
            my ($kernel, $tick) = @_[ KERNEL, ARG0 ];
            print "'tick' => $tick\n";
            $kernel->delay( tock => 5, "Hey, I just ticked" );
        },
        tock => sub {
            my ($kernel, $tock) = @_[ KERNEL, ARG0 ];
            print "'tock' => $tock\n";
            $kernel->delay( tick => 10, "Hey, I just tocked" );
        },
    }
);

POE::Kernel->run();