Help for this page
my $wildcard = File::Spec->catfile(File::Spec->rootdir(), qw(apps inst2 metrica), ... while (<$wildcard>) { print; }
for (glob $wildcard) {