in reply to Reading in the first 10 lines of a file

while (<>) {
  print if (1 .. 10);
}

[download]

In Section Seekers of Perl Wisdom