open(TEST, ">$file") or return $self->error("Failed to open $file");