Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
}
print "First week of 2013: ".weekToDays ( 1, 2013) ."\n" ;
print "Second week of 2013: ".weekToDays ( 2, 2013) ."\n" ;

First week of 2013: 31/12/2012 to 6/1/2013
Second week of 2013: 7/1/2013 to 13/1/2013

my ($y, $m, $d) = Add_Delta_Days($year2, $month, $day, 6);