>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