哪位高手指点下怎么样用perl编写在Tk界面上显示动态的时间，谢谢啦！

哪位高手指点下怎么样用perl编写在Tk界面上显示动态的时间，谢谢啦！

手头上没有perl的TK包，不好测试。
写一段已测试过的tcl/tk代码你参考一下吧。
#!/bin/sh
# the next line restarts using wish 
exec wish "$0" ${1+"$@"}
proc timer {} { 
         global clk 
         set clk [clock format [clock seconds]] 
         after 1000 timer 
}
pack [label .clk -textvar clk] 
timer追问我试了下只能写出一个静态的时间，时间不能一秒秒地动。
Tk是不是有个专门写时间的组件。还是要怎么循环一下，请指教。追答不需要循环，用递归算法，你看我写after 1000 timer那一句，就是相当于perl里面 sleep 1;return timer();追问我是刚学perl 的菜鸟，对于什么是递归算法。我是一窍不通，算了。我自己再研究研究。
多谢了！追答递归跟perl没关系，很多计算机语言都会用到，你百度一下递归，了解一下就好了，不是很复杂。