#!/usr/bin/perl -w
use strict;
use warnings;
use Fcntl qw (:DEFAULT :flock);
# pq:
my $ok = sysopen (my $datei,'testdatei.test',O_WRONLY|O_APPEND);
if ($ok) {
	print "Dateizugriff OK\n";
}
else {
	print "Fehler $!\n";
}
my $ok2 = sysopen (my $datei2,'testdatei.test',O_WRONLY|O_APPEND|O_CREAT);
if ($ok2) {
	print "Dateizugriff OK\n";
}
else {
	print "Fehler $!\n";
}
# bianca (ungeeignet da beim zweiten sysopen noch der Fehler aus dem ersten in $! steht!):
sysopen (my $datei3,'testdatei.test2',O_WRONLY|O_APPEND) or my $fehler = $!;
if ($fehler eq '') {
	print "Dateizugriff2 OK\n";
}
else {
	print "Fehler2 $fehler\n";
}
sysopen (my $datei4,'testdatei.test2',O_WRONLY|O_APPEND|O_CREAT) or $fehler = $!;
if ($fehler eq '') {
	print "Dateizugriff2 OK\n";
}
else {
	print "Fehler2 $fehler\n";
}