if (sysopen "lockfile", O_CREAT | O_EXCL) {
  tu_was();
  unlink "lockfile";
}
else {
  # lockfile konnte nicht geöffnet werden
}