AnyEvent example
file: bin/anyevent_example_3.pl 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