How to copy a file in Perl and save its timestamp?

Question

I use the File :: Copy module to copy a file in Perl:

#! /usr/bin/perl -w

use File::Copy;

copy("somefile.log", "copiedfile.log");

I would like to keep timestamps (especially modification time), but this does not seem to be an option.

Is there an easy way to achieve this without resorting to the "cp -p" system call?

Answer 1

stat, utime, . , . - , cp -p. , File::Copy , unix . RT # 96158, - . , .

Answer 2

:: . syscopy rmscopy. .