Added PerlTestDirOpen function