use strict;
open FH, ">test.txt" or die "not able to open file for writing $!";

##</code><code>##

# perlcritic blah.pl
Bareword file handle opened at line 2, column 1.  See pages 202,204 of PBP.  (Severity: 5)
Two-argument "open" used at line 2, column 1.  See page 207 of PBP.  (Severity: 5)
Code before warnings are enabled at line 2, column 1.  See page 431 of PBP.  (Severity: 5)