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_________

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.