The module Cwd in standard distribution (AFAIK) comes to rescue

Use Cwd;
my $current_dir = cwd();
print "The current working directory is $current_dir\n";
[download]

Cwd works cross platform

HTH