perl -e 'printf qq{%4d%02d%02d\n},map{$_->[0]+1900,$_->[1]+1,$_->[2]}[((localtime(time-((1-(localtime(time))[6])* -86400)))[5,4,3])];'