Как я могу удалить последние N строк файла?

Может кто-нибудь дать несколько советов, как удалить последние n строк из файла в Perl? У меня очень большой файл размером около 400 МБ, и я хочу удалить из него около 125 000 последних строк.