use File::BOM qw( :all );