while (!$quit)
  {
    gatherData1 ();
    gatherData2 ();
    gatherData3 ();
    renderData ();

    ReadMode 'cbreak';
    $quit = 1 if defined (my $char = ReadKey (0)) && $char eq 'q';
    ReadMode 'normal';
  }