Using > instead of < will open it for writing and truncate the file.

open (FILE, '>', 'sample.txt') or die "Could not open sample.txt: $!";
close (FILE) or die "Could not close sample.txt: $!";
[download]