perl function utime

The utime function in Perl is used to modify the access and modification times of a file. The syntax for using this function is as follows:

utime $atime, $mtime, @files;

Where $atime is the new access time, $mtime is the new modification time, and @files is a list of files to modify. The new access and modification times should be specified as the number of seconds since the epoch (January 1, 1970, 00:00:00 GMT).

Here's an example that uses utime to modify the access and modification times of a file:

my $file = 'example.txt';
my $atime = time();
my $mtime = $atime - 3600; # 1 hour ago

utime $atime, $mtime, $file or die "Can't change times for $file: $!";

In this example, we set the access time to the current time and the modification time to one hour ago. We then use utime to modify the access and modification times of the file example.txt. If the function fails, it will print an error message indicating the reason for the failure.