perl script to save and retrieve some currently used directories