Did you try reversing the lines that open the files:

while(<$filepath2>) { print }

while(<$filepath>) { print }
[download]

I do need to point out that you shouldn't hard-code your data like such, maybe something more generic would be better:

foreach (@files2upload) {
   open F, $_ or die "Yack on file $_\n";
   print while(<F>);
   close F;
}
[download]

Jeff