Or the really easy way...
use DateTime; print DateTime->now->week_number,"\n"; [download]
In reply to Re: ISO 8601 week number by jasonk in thread ISO 8601 week number by wol