Hi artem78,

A quick search on CPAN reveals that Win32API::File::Time may be able to help you. From its synopsis:

use Win32API::File::Time qw{:win};
($atime, $mtime, $ctime) = GetFileTime ($filename);
SetFileTime ($filename, $atime, $mtime, $ctime);
[download]

Hope this helps,
-- Hauke D