Nicely done.

A followup( to convert this to a running clock) should be easy and not too protracted a job.

1. Remove (comment out) the mvalue in $wxGlobals{mValue}.
2. Insert code to use localtime() to obtain $hour and $minute (as global vars).
3. Write a routine to ensure those values have two digits.
4. Use the (global) formatted $hour and $min in the sub do drawing{ instead of the hash element.
5. And, of course, put the whole thing in a loop with a sleep 15 (or so, +/-) so the clock will update.

Of course, there are easier ways -- including perching a USD 2.49 (cheapo) clock in your view... and better than this top-of-the-head expression of enthusiasm for your "learning...taking place." :)