while(1)
{
  my %event = ();
  eval
  {
    %event = SECRET_PACKAGE_NAME::WaitForEvent($timeout);
  };
  if($@)
  {
    # timeout occurred, serial burst complete
    last;
  }
  else
  {
    push (@Events, { %event });
  }
}# end while
...