get week numeration in a year?

[Practical Perl]

Hello,list,

Is there a fast way to get the week numeration in a year?
For example,now it's 35th week in 2006,next week is 36th week of this
year then.

Thanks.