Help for this page
my($openokay) = open(MW,"+<$filename"); if (!$openokay) { return 0; }
open(MW,"+<$filename") || return 0; ... } else { return 0; }