in reply to Clearing out the file

You probably want to use the truncate function.

In Section Seekers of Perl Wisdom