#!/usr/bin/perl
use strict;
use warnings;
use FindBin;
print "Content-type: text/plain\n\n";
my $file = $FindBin::Bin . '/Kunde';
print "Suchpfad ist: $file\n";