[Moscow.pm] UTF-8, локализованные сообщения об ошибках, как решить?

[Dmitry E. Oboukhov]

имеется скрипт:

#!/usr/bin/perl

use utf8;
use open qw(:std :utf8);
use strict;
use warnings;
use IO::Socket::INET;
use Encode qw(encode decode);

my $c=IO::Socket::INET->new(PeerAddr => 'localhost:1236');

print "$!\n" unless $c;
print decode utf8=>"$!\n" unless $c;

работает так:

perl test.pl 
Ð Ñоединении оÑказано
В соединении отказано


То бишь решение вроде бы и есть, но такое некрасивое что жуть.

1. нельзя ли глобальной прагмой какой этот вопрос решить?
2. нельзя ли отключить локализацию сообщений об ошибках?

--
... mpd is off

. ''`.                               Dmitry E. Oboukhov
: :’  :   email: unera на debian.org jabber://UNera@uvw.ru
`. `~’              GPGKey: 1024D / F8E26537 2006-11-21
  `- 1B23 D4F8 8EC0 D902 0555  E438 AB8C 00CF F8E2 6537
----------- следущая часть -----------
A non-text attachment was scrubbed...
Name: отсутствует
Type: application/pgp-signature
Size: 197 bytes
Desc: Digital signature
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20090214/6d07299e/attachment.bin>