sub four_digit_year {
 my $year = shift;

  if ($year !~ /\d{4}/) {
    die "Sorry, please use the four digit year. Stopped $!";
  }

  return $year;
}