Select Code to Download

#!perl
use strict;
...
binmode STDOUT, ':encoding(UTF-8)';

print "\N{INFINITY}\n";

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