C:\test>type count.pl
#! perl -slw
use strict;
use 5.010;

say for 1 .. 1e6;