utime

utime 
atime
, 
mtime
, 
files

Changes the access time ( atime ) and modification time ( mtime ) on each file in a list of files . The first two elements must be the numerical access and modification times, in that order. The function returns the number of files successfully changed. The inode change time of each file is set to the current time. Here's an example of a utime command:

#!/usr/bin/perl
$now = time;
utime $now, $now, @ARGV;

To read the times from existing files, use stat .