Загрузка пакета с Win32::Console - нет вывода

Question

Почему я не получаю вывод при загрузке этого пакета (WinXP SP3, Strawberry Perl 5.18.1)?

package MY_TEST;
use warnings;
use strict;
use Win32::Console;

my $output;
$output ||= Win32::Console->new( STD_OUTPUT_HANDLE );

1;

Автор сценария:

#!/usr/bin/env perl
use warnings;
use strict;
use 5.10.0;
use MY_TEST;

say 'Hello World';

Нет вывода.

Answer 1

Я нашел решение:

package MY_TEST;
use warnings;
use strict;
use Win32::Console;

my $output = Win32::Console->new( STD_OUTPUT_HANDLE );
$output->{handle} = undef;

1;

Я полагаю, что проблема связана с этой ошибкой # 33513.