To answer my own question:
As briliantly reported by davemab

Use Cwd;

my $cwd_var = cwd();
print "My current working directory: $cwd_var\n";
[download]

This works on both Unix and Win32.

Pat.