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