Select Code to Download

  while (1) {
    my $timeout = 5 ;
...
    } ;
  } ;

  sub events {
    while (@events) {
...
    } ;
    return 5 ;
  } ;

  use Time::HiRes qw(time ualarm) ;

...
    $delay = 0.0001  if $delay < 0.0001 ;
    ualarm($delay * MS) ;
  } ;