#!/usr/bin/perl -w
use strict;
use Win32;
my $dir = Win32::GetCwd;
print "$dir";

##</code><code>##

#!/usr/bin/perl -w
use strict;
use Cwd;
my $dir = cwd;
print "$dir";