Select Code to Download

    my $template_text = read_file('test.tmpl');
    # get all expr attributes
...
    # generate new template file
    my $tmpl_filename = '/tmp/test.tmpl');
    write_file($tmpl_filename, $template_text);

sub _fill_expr_params {
    my ($row, $expr_names, $exprs) = @_;
    $row->{$expr_names->[$_]} = eval($exprs->[$_]) for ( 0.. $#$exprs 
+);
}