chdir `perl -e 'print quotemeta("/some/path")'`

##</code><code>##

$ cat script.pl
print("set var=val\n");
print("set foo=bar\n");
print("cd /some/path\n");

$ script.pl > temp_file && source temp_file && rm temp_file

##</code><code>##

>type script.pl
print("set var=val\n");
print("set foo=bar\n");
print("cd \\some\\path\n");

>for /f "usebackq delims=" %%f in (`script.pl`) do %%f