my $object = Object->new();

  POE::Session->create(
    object_states => [
			$object => {
				_start => "handle_start",
				tick => "handle_tick",
				tock => "handle_tock",
			},
		],
	);

##</code><code>##

	sub handle_start {
		$_[KERNEL]->delay( tick => 1, 0 );
	},
	sub handle_tick {
		my ($self, $kernel, $count) = @_[OBJECT, KERNEL, ARG0];
		print "tick $count\n";
		$self->do_other_stuff();
		$kernel->delay( tock => 1, $count + 1 );
	},
	tock => sub {
		print "tock $_[ARG0]\n";
		$_[OBJECT]->do_more_stuff();
		$_[KERNEL]->delay( tick => 1, $_[ARG0] + 1 );
	},