obtain $*CWD.chars once before the loop in IO::Path.contains

It is about 25% faster for a very simple test.