use Cwd;
print cwd();

##</code><code>##

perl -V