perl AnyEvent

use AnyEvent;my $w = AnyEvent->timer(after => 0,interval => 5,cb => sub {print "hello\n";});##进入事件回旋my $cv = AnyEvent->condvar;$cv->recv; # just like while (1) {...}