May I recommend File::chdir (yes, note the case :), which makes it simple to not just get the current dir, but also to change dir. And restore it later by just doing

local $CWD = $new_dir;.

/J