In welcher Perl-Version?
Zumindest in der perlfaq5 seit 5.8.0 ist dieser Code nicht mehr drin. Bei der Frage, die du nennst (die heißt jetzt "How do I change one line in a file/delete a line in a file/insert a line in the middle of a file/append to the beginning of a file?") wird einfach auf Tie::File verwiesen. An anderer Stelle ("How can I read in an entire file all at once?") wird der untere Code benutzt.

Siehe z.B. perlfaq5.