perl scratch dir