#! /usr/bin/perl -w
  use strict;
  use threads;  
  use threads::shared;
  use Term::ReadKey;

  my $quit : shared = 0;
  
  sub gatherData1 { while (!$quit) {... sleep 1}  }
  sub gatherData2 { while (!$quit) {... sleep 5}  }
  sub gatherData3 { while (!$quit) {... sleep 10} }
  sub renderData  { while (!$quit) {... sleep 1}  }

  my $gatherer1 = threads->new (\&gatherData1);
  my $gatherer2 = threads->new (\&gatherData2);
  my $gatherer3 = threads->new (\&gatherData3);
  my $renderer  = threads->new (\&renderData);

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

  $gatherer1->join;
  $gatherer2->join;
  $gatherer3->join;
  $renderer->join;
  exit 0;