use DateTime;

my $dt = DateTime->new(
    day   => 10,
    month => 10,
    year  => 2007,
);

print $dt->week_number;