You could steal the code from Tk::Clock (look at the _where function in Clock.pm. This is - as zentara - using a Canvas.

I however think that most posted solutions here would be almost the same.