Help for this page
Select Code to Download
Select
or
download this
use Time::Piece; print 'Time::Piece'->strptime("080614", "%y%m%d")->week, "\n";