open FILE,">>filename";
truncate FILE, 0;
close FILE

##</code><code>##

$ echo abcde > file
$ perl -e 'truncate "file", 2'
$ cat file
ab