sub chunkit {
  my $filename = shift;
  use Tie::File;
  tie my @array, 'Tie::File', $filename
    or die "cant chunkit $filename : $!\n$^E ";
  splice @array, 0, -100; # remove all but last 100
  untie @array;
}
[download]