($READTIME, $WRITETIME) = (stat($filename))[8,9];

##</code><code>##

system("copy $oldFile $newFile") == 0 
|| die "$?\n";