Распечатать текущий каталог с помощью Perl

У меня есть этот код для печати текущего каталога с помощью Perl:

use Cwd qw(abs_path);
my $path = abs_path($0);
print "$path\n";

Но он отображает имя файла моего скрипта вместе с каталогом.

Примерно так:

C: \ Perl \ duration.pl

Я хочу, чтобы отображался только C: \ Perl \ .

Как это сделать?