cd /home/graff
perl -e 'use Cwd;
 $,=" ";  print $ENV{PWD},getcwd,$/;
 chdir "/tmp"; print $ENV{PWD},getcwd,$/;'

##</code><code>##

/home/graff /home/graff 
/home/graff /tmp