open (DATABASE, "$filename" || &ErrorMessage);