$ perl 832144.pl
GLOB(0x84250b8) unix
GLOB(0x84250b8) perlio

GLOB(0x8248600) unix
GLOB(0x8248600) perlio
GLOB(0x8248600) encoding(utf-8-strict)
GLOB(0x8248600) utf8

GLOB(0x82610d8) unix
GLOB(0x82610d8) perlio


$ perl -e'use open qw( :std IO :encoding(UTF-8) ); do $ARGV[0];' 832144.pl
GLOB(0x84dbdc8) unix
GLOB(0x84dbdc8) perlio
GLOB(0x84dbdc8) encoding(utf-8-strict)
GLOB(0x84dbdc8) utf8

GLOB(0x82ff610) unix
GLOB(0x82ff610) perlio
GLOB(0x82ff610) encoding(utf-8-strict)
GLOB(0x82ff610) utf8

GLOB(0x8570378) unix
GLOB(0x8570378) perlio