$ cat cwdt.pl 
#!/usr/bin/perl
use strict;
use warnings;
my $currDir = `pwd`;
chomp $currDir;
print "$currDir\n";
$ ./cwdt.pl 
/tmp
$