$ perl -MPOSIX -le'print strftime q/%W/, localtime'
35