use Cwd;
   print "From: ",getcwd(), "\n";
   chdir $d or die "To $d: $!\n";