There's two ways you could approach this..
The win32 way.

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

or the other way..

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