@s=map{[ (' ')x
     60]}(0..40);  ($m,$h
   )=(localtime)  [1,2];t(
  20,$_/5,$_%5   ?".":$_/5)
 for(1..60);t(   $_*1.5,$m/5
,p($_))for(1..  12);t($_*1.5,
$h%12+($m/60)  ,p($_+14))for(
0..10);print  join("\n", map{
join('',@$_)  }@s);sub t{ $s[
20-$_[0]*cos  (.52*$_[1])][30
 +$_[0]*1.50  *sin(0.52*$_[1
  ])]=$_[2]}  sub p{substr(
    " Just Another Perl ".
      "Clock",$_[0],1)}
[download]