$ cat file.txt | perl -ne '(1..10)&&print'

##</code><code>##

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