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);
}
[download]

.{\('v')/}   C H E E R   U P !
 _`(___)' ___a_l_b_e_r_t_o_________