Ummm. . . can't you --

#!perl
use Cwd;
$cwd = cwd();
print $cwd;
[download]

??? It works on my WinXP machine, and is referenced in Llama, so I assume the module's standard.