>cd
C:\

>for /f usebackq %q in (`perl -e"print 'foo'"`) do cd %q

>cd
C:\foo