Yup, you are right. But '.' was too trivial, that I wanted for my example the abstraction: "the current directory".

With some delay, but a little research today led me to the solution. It was more easy than expected.

use Cwd qw(); use strict;
my $current = Cwd::cwd();
print `du -ha $current\n`;
[download]