Select Code to Download

sub IsLeapYear
{
...
   return 0 if $year % 400;
   return 1;
}

IsLeapYear(2006);

my $days_in_February = IsLeapYear($year) ? 29 : 28;