use Cwd;
my $dir = getcwd;

##</code><code>##

my $dir = `pwd`;