if (sysopen (my $datei,'testdatei.test',O_WRONLY|O_APPEND)) {
	print "Dateizugriff auf $datei OK\n";
}
else {
	print "Fehler $!\n";
}