Help for this page
open (DATABASE, "$filename" || &ErrorMessage);
open (DATABASE, "$filename") || &ErrorMessage;