Help for this page

Select Code to Download

Select or download this

sub four_digit_year {
 my $year = shift;
...

  return $year;
}