# specify file with content
my $file = "bla.dat";

# open in (over)write mode clears the file!
open my $fh, '>', $file or die "open($file,w) failed: $!";

# look at the file now, you have some time
sleep 60;

close $fh or die "close($file,w) failed: $!";