open $fh, "<", $filename || die "oops!";   # should use "or" here
                       # (or else put parens around the args for the "open()" call)