my $cwd = $^O eq 'MSWin32' ? 'cd' : 'pwd';
print qx{$cwd};