Select Code to Download

my $prev_file_name;
my $file;
...
   #   print $file $new_line;
   #}
} #end of while loop

my $MAX_FILES=10; # Max open files we want
my %files;        # We can keep multiple file handles
...
   print $file $new_line."\n"
     or print "data COULDNT be printed to CURRENT_FILE\n";
} #end of while loop