I'm pretty sure you'll have to re-create the file. Here's one way:

use warnings;
use strict;

use File::Copy;

copy 'file.txt', 'file2.txt' or die $!;
rename 'file2.txt', 'file.txt' or die $!;
[download]