use strict;
use warnings;

use Date::Calc qw ( Decode_Date_EU Week_of_Year );

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

print Week_of_Year( @date );