Did you look at the expected and actual file sizes? I note in your download subroutine that you never check whether open succeeds. Maybe the file you are trying to open does not exist?

my $filename= $_[0].$_[1];
open my $peunter, '<', $filename
    or die "Couldn't open '$filename': $!";
...
[download]