Operate in utf8 for STDOUT.

This commit is contained in:
Bradley M. Kuhn 2019-12-24 09:23:15 -08:00
parent 102b1f8468
commit 8985765760

View file

@ -15,6 +15,8 @@ use Encode qw(encode decode);
use Email::MIME::RFC2047::Encoder;
use utf8;
binmode STDOUT, ":utf8";
my $encoder = Email::MIME::RFC2047::Encoder->new();
my $TODAY = UnixDate(ParseDate("today"), '%Y-%m-%d');