For example, this code has the same effect as the Unix touch(1) command when
the files already exist and belong to the user running the program:

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