in reply to Reading in the first 10 lines of a file
#!/usr/bin/perl -wT use strict; for(1..10) { print scalar(<>); } [download]