open(TEST, ">$filename") or ErrorMessage("$filename: $!");