あれ、fusianasanはなかった。消した後の分だったか。
微妙なのはこれから消すか。

週替わりにした。きっとこれでできるはず。月の境目くらいでまた変わるけど。
my $tane = int($mday/7).$month.$year;