- or download this
print weeksToDays ( 1, 2013) ; (1st week of 2013)
- or download this
31/12/2012 to 8/1/2012 (it should be ...to 6/1/2013)
- or download this
print weeksToDays ( 2, 2013) ; (2nd week of 2013)
- or download this
7/1/2013 to 13/1/2013
- or download this
use Date::Calc qw ( Monday_of_Week Add_Delta_Days );
...
print "Second week of 2013: ".weekToDays ( 2, 2013) ."\n" ;