sub zeilenzahl ($) {
    my $f = shift;
    my $c = 0;


    open (F, $f) or stirb("Kann '$f' nicht oeffnen: $!");
    ++$c while <F>;
    close(F) or stirb($!);


    return $c;

} # sub zeilenzahl