ftp.cse.unsw.edu.au/2014.06.ftp.cse.unsw.edu.au.tar/ftp.cse.unsw.edu.au/pub/doc/languages/perl/nutshell/ch4/utime3

Text File | 1992-10-18 | 147 b | 8 lines

#!/usr/bin/perl
$now = time;
foreach $file (@ARGV) {
    utime($now, $now, $file)
        || open(TMP, ">>$file")
        || warn "Couldn't touch $file: $!\n";
}