{
# clear the screen
print "\ec";
# draw your clock
<your code>
# wait and redo
sleep 1; redo
}
[download]

Update: Actually i realised you only draw minutes, so you could sleep 60 - slightly less redrawing
Also I'm not sure print "\ec" works on everything - so perhaps a nicer way would be to use <check os here>?`clear`:`cls`;

<check os here>?`clear`:`cls`;

You need a print for that one, as `clear` actually prints escape sequence, so <check os here>?print`clear`:`cls`.

Also, I think that just print`cls;clear` should work too, as on windows this gives cls a command-line argument which it probably ignores (or it obeys it and makes the console real shiny clear); on linux the clear should hide whatever error cls prints.

Sorry, but I was not thinking about making it portable ;)

Velenux,
I hope you don't mind - this should make it portable:

#!/usr/bin/perl
use POSIX 'strftime';
   
$d=strftime("%l:%M", localtime);chomp($d);($h,$m)=
split(/:/,$d); $h=0 if $h==12;$h=($h*30)+180; $h-=
360 if $h>360;$m = ($m*6)+180;$m-=360 if $m>360;@o
=([' ',                                   ' ',' ',
' ',' '                                   ,' ',' '
  , ' '                  ,                ' ',' ',
' ',' '                ,' '               ,' ','|'
],[' ',                ' ',               ' ',' ',
' ',' '                ,' '               ,' ',' '
, ' ' ,                ' ',               ' ',' ',
' ','|'                ], [               ' ',' ',
' ',' '                ,' '               ,' ',' '
, ' ' ,                ' ',               ' ',' ',
' ',' '                ,' '               ,'|'] ,[
' ',' '                ,' ',              ' ',' ',
' ',' '                 ,' '              ,' ',' '
, ' ' ,                  ' ',             ' ',' ',
'|'] ,[                    ' ',           ' ',' ',
' ',' '                     ,' '          ,' ',' '
, ' ' ,                      ' ',         ' ',' ',
' ',' '                       ,'|'        ], [' ',
' ',' '                         ,' '      ,' ',' '
, ' ' ,                           ' ',    ' ',' ',
' ',' '                                   ,' ',' '
,'|'],[                                   ' ',' ',
' ',' '                                   ,' ',' '
,' ',' '                                  ,' ',' '
,' ',' ',' ',' ','|'],[' ',' ',' ',' ',' ',' ',' '
,' ',' ',' ',' ',' ',' ',' ','|'],[' ',' ',' ',' '
,' ',' ',' ',' ',' ',' ',' ',' ',' ',' ','|'],[' '
,' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ' ,
' ','|'],[' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',
' ',' ',' ',' ','|'],[' ',' ',' ',' ',' ',' ',' ',
' ',' ',' ',' ',' ',' ',' ','|'],[' ',' ',' ',' ',
' ',' ',' ',' ',' ',' ',' ',' ',' ',' ','|'],[' ',
' ',' ',' ',' ',' ',' ',' ',' ', ' ', ' ',' ',' ',
' ','|'],[' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',
' ',' ',' ',' ','|'],[' ',' ',' ',' ',' ',' ',' ',
' ',' ',' ',' ',' ',' ',' ','|'],[' ',' ',' ',' ',
' ',' ',' ',' ',' ',' ',' ',' ',' ',' ','|']); sub
dl {$l=$_[2]; while($l-- > 1){$o[int($_[0]+($l*cos
($_[3])))][int($_[1]+($l*sin($_[3])))]=$_[4];}}sub
cc {@c=('|','/','-','\\','|','/','-','\\'); return
$c[int((abs($_[0])+22.5)/45)];}dl(7,7,5,-(($h/180)
*3.1415),&cc(-$h));dl(7,7,7,-(($m/180)*3.1415),&cc
(-$m));sub pm {print "-"x29,"\n"; for($z=0;$z<$#o;
$z++){print "@{$o[$z]}\n";}print "="x29,"\n";}&pm;
      print "      ---> $d <---       \n";

# Analog Obfuscated Clock
# by Gilberto "Velenux" Ficara, March 2004
#
# Thanks to Cyberbrown, Javanx, lu_zero, gmax
# and noteof for useful hints, algorithms and 
# supplying to me the mathematics I lack
[download]

Cheers - L~R