my $dofw = (localtime())[6];
my $time = time();
my $inday = 86400;
Начало недели $time - $inday * $dofw или localtime($time - $inday * $dofw)
Конец недели $time + $inday * (6 - $dofw) или localtime($time + $inday * (6 - $dofw))