Windows, right? It helps if you clarify when writing these questions :)

Possibly abs_path can help?

use strict;
use warnings;
use Cwd qw(abs_path);

chdir("C:\WINDOWS\PROGRAM FILES"); # <- or whatever it is in windows.

my $thisdir = abs_path('.');

print "This dir is $this_dir\n";
[download]

Untested (I'm in Linux), but that would be my first stab at this.