sub same_mod_time { (stat($_[0]))[9] == (stat($_[1]))[9] }