Select Code to Download

open(FILE, "/home/user/template/$filename.txt");
     while (<FILE>)
...
               $template{'content'} .= $_;   
          }
     close(FILE);

while(my ($db_name,$content,$_add_name) = $sth->fetchrow_array()) {
    s/\<templ_var ([a-zA-Z0-9\{\'\}_]+)\>/ eval ($1) /ge;
...
    }
    $temp_vars{$db_name} = $_content;
}