try {
   open(TEST, ">$file");
};
catch {
   push(@errors, "Failed to open $file");
   return undef;
};