sub tie_file {
  my @lines;
  tie @lines, 'Tie::File', $file or die "$!";
  map {"$_\n"} @lines[-$limit..-1];
}