perl:open dir