Perhaps it's an idea to avoid such an errorprone code and to use instead an existing module.

use Date::Calc qw/check_date/;
check_date($year,$month,$day) or die "Invalid date";
[download]

Note, that also the year-1900 conversion isn't necessary any longer.