perl -e 'use Cwd; print getcwd'