用perl如何取出当前时间？

用perl如何取出当前时间？并以如2006年03月25日   的格式显示出来？  
   
  请给出源码     小弟出去     谢谢

---

($sec,$min,$hour,$mday,$mon,$year,$wday,   $yday,$isdst)=localtime();  
  printf   "%4d年%02d月%02d日",   $year+1900,   $mon+1,   $mday;  
 

---

论坛热门帖子:	[lch203] 写得蛮好的linux学习笔记(10-21) [黑马制造] 学习java的30个目标(10-19) [笑傲股林] 做测试半年了，有点迷茫，应该再学些什么提高自己的测试水平和测试能力呢？(10-19) [udp8589] 大家用google的来吱一声? 用百度的~~也来报道下?(10-18) [沂偌掳兆] 本人总结的一些认为C++比较经典的书籍，希望对大家有用(10-18)
TAG标签:	时间 当前 取出 如何 mon year mday hour sec min wday