gistfile1.pl

#!perl
use strict;
use warnings;

use AE;
use Coro::AnyEvent;
use Coro::Timer;

my $timer = AE::timer 0, 1, sub {
    Coro::Timer::sleep 1;
    print "15\n";
};

AE::cv->recv;