Wie kann ich die letzten N Zeilen einer Datei löschen?

Kann jemand Tipps geben, wie man die letzten n Zeilen aus einer Perl-Datei löscht? Ich habe eine sehr große Datei von ungefähr 400 MB und möchte ungefähr 125.000 letzte Zeilen daraus löschen.