What about using getcwd() and friends from Cwd?

   use strict; 
   use Cwd;

   # Remember to untaint $dir
   my $dir = getcwd();
[download]