#!/usr/bin/perl

use strict;
use warnings;
use FindBin;

print "Content-type: text/html\n\n";

my $file = $FindBin::Bin . '/Kunde';
open my $fh,'<',$file or die $!;
my @lines = <$fh>;
close $fh;

print scalar(@lines);