in reply to cleaning out a file

What about plain ol' ... 
    truncate 'filename', 0;

In Section Seekers of Perl Wisdom