Erm, you're opening the file for reading, then reading in the contents; that, not surprisingly, won't create a new file. You need to read perlopentut about how to specify opening a file for writing if that's what you're really trying to do.