#!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";