I'm looking for a way to encode the standard streams only within one module (file) of a multiple-file package. The "open" pragma works lexically for calls to "open" within a lexical scope, but the "use open ':std', ':encoding(UTF-8)'" declaration has a program-wide effect. For example, the following code doesn't complain:

use warnings;
use v5.10;
use utf8;

my $utf8 = "\x{3bc}\x{1fc6}\x{3bd}\x{3b9}\x{3bd}";

say $utf8;

{
    use open qw(:std :encoding(UTF-8));
    say $utf8;
}
[download]

because a UTF-8 layer is added to STDOUT, STDERR, etc., at compile time and therefore affects the "say $utf8" statement that's outside the lexical scope of the "use open".

Is there any way to restrict the encoding of standard streams to a lexical scope? I don't want to have to say "print $my_fh '...'" every time, and "local *STDOUT", etc., works on dynamic scopes, not lexical scopes.