AnyEvent example

file: bin/anyevent_example_3.pl @c3e99e4d
19: my $w = AnyEvent->timer(after => 1, interval => 1, cb => sub {
20:     say "waiting...";
21: });
22: 
23: my $timeout = AnyEvent->timer(after => 5, cb => sub {
24:     say "Your time is up!";
25:     $name = 'slow bastard';
26:     $name_ready->send;
27: });

it sets the name to some helpful string