Help for this page

Select Code to Download


  1. or download this
    use List::Util qw(sum);
...
$jul = sum(@Days[0..$mo]) + $da;