unless (open my $fh, '>', $fname) {
  warn "Cannot open $fname - $!\n";
  next;
}