($,='O9xx67O95530114X')=~y/0-9xOX/we+only JapH!/; $b='gold';sub O{@q=(pop,-pop);map{($r,$s)=(pop,-pop);@q=($r, $s,@q,-$r,$s )}@_;(0,0,@ q)}sub l{$l= shift;$c-> createText ((map$_+200, @_),-text=>$ l)} sub p{( sqrt ($_[0]**2+$_ [1]**2),atan2 ($_ [1], $_[0 ])+$ _[2]%60*.105) }sub c{($_[0]* cos$_[1],$_[0] *sin$_[1])}sub P{$;=shift;$c ->createPolygon ((map$_*5+200 ,@_),-fill =>$;)}sub _{( $p,$q,$r)=splice @_,0,3;$$r &&$c-> delete($$r);my @U;while(@j=splice @_,0, 2){@U=(@U,c p@j, $q)}$$r=P$p,@U}@M= (O 32,1,36,0) ;@a= (O 1,1,34,1, 35,0);@p=(O 1,1,24, 2,28,0);@_=qw; -width 400 -height 400;;use Tk;$o=new MainWindow (-title =>$,);$c=$o->Canvas (@_)->pack;$c-> createOval(20,20,380 ,380,-fill,'orange'); $B='#000000';P brown=> 3,-30,5,-35,3,-37,8, -40,9,-35,4,-28;P$b,- 10,-5,- 16,-16,-4, -16;P$b,10,-5,4,-16 ,16,-16;P$b,-4,-18, -20,-22, -14,-24;P$ b,4,-18,20,-22,14, -24;P$b,-5,5,0,-5,5 ,5;P$b,-29,12,-22,12,- 16,18,-10,12,-6, 12,0,18,6,12,10,12 ,16,18,22,12,29,12,19, 27,14,27,8,21,2, 27,-2,27,-8,21,-14 ,27,-19,27;$o-> repeat(1000,sub{($s,$m,$h)=localtime;_($B,$h%12*5+$m/ 12,\$H,@p);_($B,$m,\$M,@a);_(red=>$s,\$S,@M)}); map{l$_,c p 0,-190,$_%12*5}(1..12);MainLoop