sub extract {
  (my $filename, my $line_no)=@_;
  open (FILE, $filename) or die "$filename can't be opened: $! ";
  my $line = <FILE>;

  $. = $line_no;
  $line = <FILE> or die "Couldn't read line $line_no: $!";

  return $line;
}