Help for this page

Select Code to Download

Select or download this
```
# monthutils.pl

...


1;
```

Select or download this

#!/usr/bin/perl -w

...
push @{ $weeks[-1] }, ("") x (5 - @{ $weeks[-1] });

printf "%2s %2s %2s %2s %2s\n", @$_ for @weeks;