use Cwd;
print cwd . "\n";

##</code><code>##

perl -S cwd.pl

##</code><code>##

perl -e 'print `perl -S cwd.pl`'