Select Code to Download

open(INP, "<$file_list") or die("Error reading file");
while (my $data_file = <INP>) {
...
   # then call a subroutine which opens the $data_file
   # and performs some analysis on it
}