eval {
   open my $file, '<:utf8', $filename or die $!;
   local $/;
   <$file>;
};
die "$filename is invalid utf8: $@\n" if $@;