Greetings. I have this code that tests file modes. It works but perlcritic does not like it. Is there a way to fix it?

Sure, stop using perlcritic rules that you disagree with -- perlcritic, it can't choose for you, it doesn't choose at all