sub get_n_lines {
  my $fh = shift;
  grep defined($_), map {scalar <$fh>} 1..(shift);
}