open (ORDERFILE, '<:encoding(UTF-8)', $emailfile) or return (@err, "Could not open order email file: $emailfile");
my(@LINES) = <ORDERFILE>;
my $filedata = <ORDERFILE>;
close(ORDERFILE);
use Encode;
eval { my $utf8 = decode("utf8", $filedata, Encode::FB_CROAK ) };
return(@err, "File was not encoded in UTF-8") if ($@);