Select Code to Download

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