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