if (open(FH, $filename)) {
    # Here $! is meaningless.