use strict; use warnings; die "bad file name: $ARGV[0]" if !-e $ARGV[0]; my $atime = (stat($ARGV[0]))[8]; utime $atime, time(), $ARGV[0];