$ perl -e 'for (1 .. 10) { print("A" x (9000 + $_) . "\n") }' > file.txt
   
   $ perl -le 'open FOO, "file.txt"; print length $_ for (<FOO>);'
   9002
   9003
   9004
   9005
   9006
   9007
   9008
   9009
   9010
   9011