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

print "existiert";
unless(-e $file){
    print " nicht";
}