binmode(STDIN, ":utf8");
binmode(STDOUT, ":utf8");
binmode(STDERR, ":utf8");

##</code><code>##

my $bzIn = bzopen($in, "rb") or die "Can't open stdin: $bzerrno\n";
my $bzOut = bzopen($out, "wb") or die "Can't open stdout: $bzerrno\n";