while(1){
   if($c = Readkey(-1)){
     # running/playing game etc.
   }
 
   sleep(1);
   print $count++;
}