#!/usr/bin/env perl use warnings; use strict; use Encode::Locale qw(); use My::Module; binmode STDIN, ':encoding(console_in)'; binmode STDOUT, ':encoding(console_out)'; binmode STDERR, ':encoding(console_out)'; use open ':encoding(locale)';