perl -e "use Cwd; print getcwd();"

##</code><code>##

perl -MCwd -e "print getcwd();"