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

use Win32;
Win32::SetConsoleOutputCP(65001);
binmode STDOUT, ':encoding(UTF-8)';

print "\N{INFINITY}\n";