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