my $file = 'file.dat';
open my $fh, '>', $file
    or die "Can't write '$file': $!";
close $fh or die "Close error: $!";

##</code><code>##

system( "echo -n > file.dat" );

##</code><code>##

truncate 'file.dat', 0
    or die "Can't truncate file.dat: $!";