perl: open dir