Help for this page
$ perl -le 'open FOO, "file.txt"; print length $_ for (<FOO>);'
$ perl -le 'print "A" x (9000 + $_) for 1..10' > file.txt ... 9008 9009 9010