#!perl -p use Time::Local;print+(split$",localtime($t=timegm 5..8,$'-/ /,$`))[1]," $`$/",$"x(($w=(localtime$t)[6])%7*3);printf"%3d%s",$_,++$w%7?"":$/for 1..28+($'-2?3-$'*.86%2:!($`%4));$_=$w%7?$/x2:$/
Note that non-ascii characters in the above source code will be escaped (such as \x9f).