my $yearfield = get_it_from_somewhere();
my $current_year = (localtime)[5] + 1900;
die "invalid number\n" unless $yearfield =~ /^\d+$/;
die "invalid year\n" if $yearfield > $current_year;