Does Date::Calc take this into account?

Yes:

use strict;
use warnings;

use Date::Calc qw ( Decode_Date_EU Week_of_Year );

my @date = ( 2006, 1, 1 );

print Week_of_Year( @date );
[download]

Prints 522005, ie the 52nd week of 2005.