while (1) { # Cycle forever, updating each second
   system("clear");          ## WOULD IT DO? (replace CLS for CLEAR on win32)
   print "\n", anaclock($wx, $wy);
   sleep(1);
}