{
  no autodie qw(open);          # open failures won't die
  open(my $fh, "<", $filename); # Could fail silently!
  # ^^^ add your "or die" to this open
}