cd C:\temp
  perl -e 'system("pwd; pwd");'

##</code><code>##

  pwd [-LP] [-d path]

##</code><code>##

  c:/temp
  c:/temp