#!/usr/bin/perl
use warnings;
use strict;
use utf8;

binmode( STDERR, ':utf8' );
$ENV{ LANG } = 'C';
warn "<UTF-8 string>";
open( my $in, '<', 'non-existing-file' ) || die $!;