Select Code to Download

my $max_lines = 800;
if (($. - 1) % $max_lines == 0) {
...
   open($fh_out, '>', $file_name)
      or die("Unable to create file \"$file_name\": $!\n");
}