Z:\>perl -e "@t=localtime(); printf('%s-%02d-%02d %02d:%02d:%02d', $t[5]+1900, $t[4]+1, @t[3,2,1,0])"
2008-12-22 11:13:35