my $x = 1;
# no critic
open(FH, $f);