title: perl event loop with multiple blocking watchers?
body: <p>I am trying to figure out Event Loops in Perl?</p>
  
  <p>Currently my program does something like this:</p>
  
  <pre><code>    while(my $event = wait_for_event()){
          handle_event($event);
          try_to_do_something();
      }
  </code></pre>
  
  <p>where wait_for_event is blocking.</p>
  
  <p>I am trying to figure out if I can use EV, or AnyEvent(AE), or something else to add another event watcher.</p>
  
  <p>for example, I want to be able to call try_to_do_something() every 2 seconds, but am currently stuck putting it into the event loop.</p>
  
  <p>Also, I would like to add some form of interaction with the program, possibly through sockets(another watcher).</p>
  
  <p>Thanks </p>