foo:~ # pwd
/home/foo
foo:~ # perl -e "chdir('/bar');"
foo:~ # pwd
/home/foo