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