in reply to Is any simple way to get the current directory name?
The Cwd module comes standard with modern Perls and is portable and fairly smart.