#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);

use utf8;
use open ':encoding(utf-8)';
binmode STDOUT, ':encoding(utf-8)';

open(HTML_FILE, '<',"./html/Holzfäller.htm") || die "Datei nicht gefunden";
use Fcntl ':flock';
flock(HTML_FILE, LOCK_SH);
read(HTML_FILE, my $data, 1000);
flock(HTML_FILE, LOCK_UN);
close(HTML_FILE);