Select Code to Download

#!/usr/bin/perl
my %days_in_month = (
...
foreach $day (%days_in_month) {
   print "$days_in_month{$day} days hath $day\n";
}

[ceidem@SHARPAM ~/src/perl]$ cal.pl
31 days hath Oct
...
30 days hath Jun
 days hath 30
[ceidem@SHARPAM ~/src/perl]$