my $newmtime = $mtime - $setbackinterval;
print("Touching '$p' (z=$z x=$x y=$y)\n");
if (utime($curtime, $newmtime, $p) < 1) {
my $newmtime = $mtime - $setbackinterval;
print("Touching '$p' (z=$z x=$x y=$y)\n");
if (utime($curtime, $newmtime, $p) < 1) {