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