Tell me why
I don't like Mondays
I want to shoot
The whole day down

(lyrics: Bob Geldof; music: Boomtown Rats)

use Date::Calc qw(
   Monday_of_Week Today Date_to_Text
   Week_of_Year Weeks_in_Year
);

sub shoot_down { "I don't like $_[0]!\n" }

my ($y,$m,$d) = Today();
for (Week_of_Year($y,$m,$d) .. Weeks_in_Year($y)) {
   print shoot_down(Date_to_Text(Monday_of_Week($_,$y)));
}
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)