#!perl
# utf8::all should have lexical effect
use Test::More tests => 2;
BEGIN {
@ARGV = qw(føø bar bāz);
}
use utf8::all;
is_deeply \@ARGV, [qw(føø bar bāz)];
{
no utf8::all;
is_deeply \@ARGV, ["f\x{f8}\x{f8}", 'bar', "b\x{101}z"];
}