perl -MCwd -e"print cwd"