Kompliziert? Du bekommst mit Tie::File ein Array geliefert. Die letzten n Elemente eines Arrays sind doch sehr leicht herauszuholen.

Aber bei sehr großen Dateien würde ich zu File::ReadBackwards raten.