Just open in '>' mode:

{
 open my $fh, "> $file" or die "cannot open $file: $!"
}
[download]