use Win32; 
my $cwd = Win32::GetCwd