#!perl
use strict;
use warnings;
use charnames ':full';
use Win32::Console;

my $c = Win32::Console->new(STD_OUTPUT_HANDLE);
$c->OutputCP(65001); # we write UTF-8
binmode STDOUT, ':encoding(UTF-8)';

print "\N{INFINITY}\n";

##</code><code>##

my $oldCP = $c->OutputCP();
$c->OutputCP(65001); # we write UTF-8
END{
    if( $c ) {
        $c->OutputCP($oldCP); # we write UTF-8
    }
}
...