#!/usr/bin/perl

use strict;
use warnings;
use File::Find;
use FindBin;

my @files;
find(sub{push @files,$File::Find::name if $File::Find::name =~ /Kunde$/},'/');

print "Aktueller Pfad: ",$FindBin::Bin,"\nTreffer:\n",join("\n",@files);