Win32 Perl

#!/usr/bin/perl -w
use Win32;
$cwd    = Win32::GetCwd();
print "Current directory=$cwd\n";