Time::Pieceでcalコマンドっぽいものを実装する

ぽいものっていうのは、 日曜始まりじゃなくて月曜始まりって意味なんだけど、 今思うと、なんで月曜始まりにこだわったのか分かんない。。。