Select Code to Download

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>));
}