Help for this page

Select Code to Download

Select or download this

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

Select or download this

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";