#!/usr/bin/perl
use 5.010;
use strictures;
use AnyEvent qw();
my %events;
$events{function1} = AE::timer(0, 6, sub { say q(I'm function 1!); });
$events{function2} = AE::timer(0, 6, sub { say q(I'm function 2!); });
$events{main} = AE::cv->recv;