$now = time;
utime $now, $now, @filenames;
# and/or/maybe
utime undef, undef, @filenames;