Como posso excluir as últimas N linhas de um arquivo?

Alguém pode dar algumas dicas de como excluir as últimas n linhas de um arquivo no Perl? Eu tenho um arquivo muito grande de cerca de 400 MB e quero excluir cerca de 125.000 últimas linhas dele.