use Cwdperl

use Cwd; my $path_curr = getcwd;