$ perl -v
This is perl, v5.8.0 built for i586-linux-thread-multi

$ perl -MCwd -le 'chdir "/tmp"; print getcwd();'
/tmp

$ perl -MCwd -le 'chdir "/root"; print getcwd();'