#!/usr/bin/perl

use strict;
use warnings;
use 5.024;

for my $Count ( 1 .. 10_000_000 ) {
    #binmode STDOUT, ':encoding(UTF-8)';
    binmode STDOUT, ':raw';
    print "$Count\n";
}