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