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