Select Code to Download

open NEW_TEMPLATE, "> $indx" or die "Cannot open ($indx) for writing: 
+$!";

...

# print the template to file
$template->output(print_to => *NEW_TEMPLATE);

open DB, "< $db" or die "Cannot open ($db) for reading: $!";
while (my $line = <DB>) {
...
    }
}
close DB;