Select Code to Download

while(<$filepath2>) { print }

while(<$filepath>) { print }

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