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