Try this.

use Time::Piece;
use Time::Seconds;

my $refsecs = 102049345; #(Nov. 5 2001) (prefer strptime!)
my $reftime = localtime($refsecs);

for my $week (1..10) {
  print "$week  ", $reftime->strftime("%b. %e %Y %A");
  print " - ",
  $reftime += ONE_DAY * 6;
  print $reftime->strftime("%b. %e %Y %A"), "\n";
  $reftime += ONE_DAY;
}
[download]