find (\&pstFind, ($dir) );