use strict;
use warnings;

use 5.010;
use File::Spec::Functions qw(catfile rootdir);

my $volume_name = catfile(rootdir, 'Volumes', 'Volume name');
say catfile($volume_name, '*');