if (sysopen(TRIGGERFILE, "$config->{xmlpath}trigfile.tf", O_WRONLY | O_EXCL | O_CREAT)) {
 if (flock (TRIGGERFILE, LOCK_EX | LOCK_NB)) {
  print TRIGGERFILE "\n";
 } else {
  push (@errors, qq(<p class="message">error message</p>));
 }
 close TRIGGERFILE;
} else {
 push (@errors, qq(<p class="message">error message</p>));
}