my $dt = eval { 
          Time::Piece->strptime("2001-04-32", "%F")
         } or warn "This is not a valid date ($@).\n";