asynchronous timer

gistfile1.pl

#!/usr/bin/env perl
use common::sense;

use AnyEvent;
use AnyEvent::Util qw/fork_call/;

my $cond = AnyEvent->condvar;

my $timer = AnyEvent->timer(
    interval => 3,
    cb => sub {
        say 'timer fired! '.time;
    },
);

my $timer1 = AnyEvent->timer(
    interval => 5,
    cb => sub { fork_call {
            my $start = time;
            sleep 10;
            my $end = time;
            return 'counter done '.$start." - ".$end;
        } sub {
            say "bljad: " . join "", @_;
        }
    },
);


$cond->recv;