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

##</code><code>##

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