use Win32;

my $path = Win32::GetCwd();