Как в Perl убедиться, что строка соответствует действительной дате?

Мне было интересно, есть ли в Perl простой способ убедиться, что строка даты соответствует действительной дате.

Например, 2012 02 30 неверно, потому что не существует.