while(<$filepath2>) { print }

while(<$filepath>) { print }

##</code><code>##

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