Select Code to Download

$file_next = `perl -ple 'exit if \$. > 10' $file_upload`;

#
# define $file_upload, etc above this
...
}
close INFILE;