use Cwd;

# ...

my $cwd = getcwd();

# ...