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

binmode STDOUT, ':encoding(UTF-8)';

print "\N{INFINITY}\n";