Найти неделю года по дате в мм/дд/гггг

Я пытаюсь найти неделю, на которую приходится дата, в определенном году. У меня есть куча файлов, которые нужно рассортировать по папкам типа «неделя1 -2012» и «неделя34 -2011». Я пытался искать, но многие результаты на самом деле не помогают, потому что в настоящее время я использую perl v5.6.1, очень старый, и я не могу загрузить какие-либо модули. Я также нашел эту ссылку(Как рассчитать номер недели по дате?)интересно, но мне было интересно, как я могу легко получить день года и неделю. Думал о том, чтобы получить месяц и добавить соответствующее количество дней, чтобы узнать день в году. Любая помощь будет оценена по достоинству. Пример формата года, который я ищу:

//year 2012
S  M  T  W  R  F  S
            1  2  3    <-- week #1 
4  5  6  7  8  9 10    <-- week #2 //came from the link

//dec year 2011
S   M  T  W  T  F  S
27 28 29 31            <-- week #52 or 53, not to sure the actual week