#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;
# use utf8;
# use Fcntl qw(:DEFAULT :flock);
print header(-charset=>'utf-8');
my $file="b2k"; #param("file") || "kibbutz";
my $style=param("style") || "kibbutz.css";
# sysopen (SOURCE, "$file.txt", O_RDONLY) or die "$file.txt nicht lesbar. $!";
# flock(SOURCE, LOCK_EX) or die "Kein LOCK moeglich: $!";
print qq
{
Kibbutz-Input
};
#use Data::Dumper;
#print Dumper(\@messages);