Вопрос таймера AnyEvent

Как сделать таймер "видимым"? Этот пример возвращает (всегда зависит от времени сна) 2 (я ожидал чего-то похожего на время сна).

#!/usr/local/bin/perl
use warnings;
use 5.014;
use AnyEvent;

my $c = 0;
my $cv = AnyEvent->condvar;

my $once_per_second = AnyEvent->timer (
    after => 0,
    interval => 1,
    cb => sub {
        $c++;
        $cv->send;
    },
);

sleep 5;

$cv->recv;

say $c;