Perhaps you need to open the file in append mode:

open(my $fh, ">>", $filename) or die "Err opening $filename: $!";
[download]