Validar fechas en Perl?

use DateTime::Format::DateManip;
my @dates = (
   '11/17/2008',
'11/17/2008 3pm',
'11/17/2008 12:01am',
'11/17/2008 12:01am EST',
'11/17/2008 12:01am CST',
);
for my $date ( @dates ) {
my $dt = DateTime::Format::DateManip->parse_datetime( $date );
die "Cannot parse date $date"  unless defined $dt;
say $dt;
}