Make sure the Tk module is installed and this should work under Unix/Linux and Windows. 
              ($,='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$_+20
+0,
     @_),-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{$;=shi
+ft;$c
  ->createPolygon      ((map$_*5+200     ,@_),-fill           =>$;)}su
+b _{(
 $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 -he
+ight
 400;;use Tk;$o=new                                     MainWindow (-t
+itle
  =>$,);$c=$o->Canvas        (@_)->pack;$c->          createOval(20,20
+,380
  ,380,-fill,'orange');     $B='#000000';P brown=>    3,-30,5,-35,3,-3
+7,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,1
+4,
     -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

[download]
Updated:  Slight modification made (spoiler) ...
The hour hand was only moving once each hour -- it now moves every 12 minutes, to give a more accurate representation of the hour.

In reply to Japh O' Lantern by liverpole

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.