if(open FILE, ">$filename") {
  flock FILE, 2;
  ... # Write stuff to FILE
  close FILE;
} else {
  print "An I/O error occurred!";
  log_error $!; # Call a sub
}