unlink('file');
open(my $h,'>file');
print $h 'something';
close $h;