请教perl处理时间的问题

如何判断输入的日期是否合法：

例如：

      输入20050619则合法
      输入20050631则不合法

多谢。
（不使用模块)