my $dir_prefix = join '', map { "$_/" } @$path;
my $dir_suffix = join '', map { "/$_" } @$path;
my $dir_name = join '/', @$path ? @$path : '.';
my $dir_prefix = join '', map { "$_/" } @$path;
my $dir_suffix = join '', map { "/$_" } @$path;
my $dir_name = join '/', @$path ? @$path : '.';