open my $log, '>>', $logfile and do {
  # lots of stuff to log
  1;
} || do {
  print "Failed to write log file $logfile: $!\n";
  die "Failed to write log file $logfile: $!\n";
}