use if $^O eq 'MSWin32', 'Win32::Console'; 
my $OUT;
if ( $^O eq 'MSWin32' ) {
    $OUT = Win32::Console-> new( STD_OUTPUT_HANDLE );
    $OUT-> OutputCP( 65001 );
    $OUT-> Mode( $OUT-> Mode | 4 );
}