$ perl -de 0
DB<1> open F, "/usr/dict/words"
DB<2> @f = <F>
- there was a momentary delay -
DB<3> print @f + 0
- debugger printed: 25143 -