Perl question> whats the quickest way to delete the last two characters in a file? (it needs to be quick)?

Question

Hi, whats the quickest way to delete the last two cahracters of a file (without reading the whole thing in and spitting it out again?) . Any perl gurus out there?

thanks...

Answer 1

my $filename = "... whatever ...";
truncate $filename, (stat($filename)->size) - 2;