use File::BOM qw( :all );
# ...
open_bom(my $fh, $file, q{:utf8})
  or die qq{cant open ->$file<- to read: $!\n};