#!/usr/bin/perl
my $counter;
open A, 'file.txt';
while(<A>) {
  print if ($counter++ < 10);
}
close A;