open (ORDERFILE, '<:encoding(UTF-8)', $emailfile) or return (@err, "Could not open order email file: $emailfile");
#...
my $filedata = <ORDERFILE>;
#...
eval { my $utf8 = decode("utf8", $filedata, Encode::FB_CROAK ) };