$ perl -e'printf "%02d-%02d-%02d\n", (localtime(undef))[5,4,3]'
70-00-01