http://www.perlmonks.org?node_id=691094

As a few of you might know, my wife is pregnant, and one thing people that is expecting a child finds out is that keeping track of the week count is very hard... So a oneliner comes to hand...

perl -MDateTime -e '$i=DateTime->new(year => 2008,month => 3,day => 5) +;print "$_ ",$i->add(weeks => 1)->strftime(q{%d/%m}), $/ for 1..40'
daniel