#
# define $file_upload, etc above this
#
open INFILE, $file_upload or die $!; # or do something more graceful
my $file_next;
for (1 .. 10) {
	$file_next .= <INFILE>;
}
close INFILE;