in reply to Files not altered

I particularly like the module IO::InSitu for this sort of thing.

In Section Seekers of Perl Wisdom