use Data::Dumper;
my $dir = system('pwd');
print Dumper($dir);