sub MainLoop {
   while (1) {
       my $next_event = Get_Next_Event_From_Queue();

       $next_event->execute;
   }
}