As others have stated, seek will not do what you want here. You have to basically rewrite the whole file. Or you can use a module to do that for you, such as Tie::File. Check that one out, it might be just what you need.