The Cwd module is a good start. I recommend using it. The Cwd module will work in Unix, Linux, and Win32.
Cwd module has three functions: cwd, getcwd, and fastcwd. You can a brief summury of this in the "Perl in a Nutshell" book. (Not a plug for OReilly)
curtisb -- "Trying to help others"