$ perl -MPosix -E 'say POSIX::strftime("%m%d%H%M",localtime(time()))'
01021644