As moritz and Sidhekin said, open HANDLE, "> $filename" should clear the file. Either there is something wrong with your version of Perl (very unlikely, as open is very heavily used) or there's something going on in the code which you're not telling us (much more likely). Try stripping down the code to the least amount that shows the odd behavior that you're reporting and posting it here or in your scratchpad.