Select Code to Download

my %period = (
    Jan => ['01 Dec','31 Dec'],
...

my $p = $period{$curr_month};
print "$p->[0] $curr_year - $p->[1] $curr_year\n";   # 01 Feb 2010 - 2
+8 Feb 2010

...
my $p = $period{$curr_month};
...
    $p->[1] = '29 Feb' unless $curr_year % 4;
}
...