in reply to cleaning out a file

system("cat /dev/null>$file");

also not very portable

In Section Seekers of Perl Wisdom