This code in Win32::Console caused output stop:

#============
sub DESTROY {
#============
    my($self) = @_;
    _CloseHandle($self->{'handle'});
}
[download]

just comment out _CloseHandle...