>md dir

>perl -MFile::stat -le"print ''.localtime( stat('dir')->mtime )"
Fri Aug 28 10:14:50 2009

>copy nul dir\file
        1 file(s) copied.

>perl -MFile::stat -le"print ''.localtime( stat('dir')->mtime )"
Fri Aug 28 10:14:50 2009

>perl -MFile::stat -le"print ''.localtime( stat('dir')->mtime )"
Fri Aug 28 10:15:06 2009