$ perl -MTime::Piece -le 'print localtime->strftime("%Y.%m.%d.%H%M")'
2019.08.01.2239