#!/usr/local/bin/perl

local $| = 1;

use strict;
use warnings;

use Fcntl qw( :flock );

open(CLIENT, "> client.txt") or die "konnte nicht öffnen: $!";
flock(CLIENT, LOCK_EX);
print CLIENT "TEST\n" or die  "konnte nicht schreiben: $!";
while (my $line = <STDIN>) {
       print "$line";
       print CLIENT "$line" or die  "konnte nicht schreiben: $!";
}
close(CLIENT) or die  "konnte nicht schließen: $!";

1;