Get Pathname Of Current Working Directory

Windows :

use File::Spec;
my $current_directory = File::Spec->rel2abs(".");
print $current_directory;


Unix

use Cwd;
my $current_directory = getcwd;
print "$current_directory";

use Cwd;
$dir = cwd;

use Cwd;
$dir = fastgetcwd;

use Cwd 'abs_path';
print abs_path($ENV{'PWD'});

use Cwd 'fast_abs_path';
print fast_abs_path($ENV{'PWD'});