...
    $year += 1900;
    croak "Cannot handle date ($sec, $min, $hour, $mday, $month, $year)";