open (F,$tmplpath.$filename) || die "Cannot open: $tmplpath$filename: $!";
  $tmpl = <F>;
  close F;
  $tmpl =~ s/<!--\s*#IF\s*(\(.*?\))\s*-->(.*?)<!--\s*#ELSE\s*-->(.*?)<!--\s*#ENDIF\s*-->/),($1?qq($2):qq($3)),qq(/gs; #)
  $tmpl =~ s/<!--\s*#INCLUDE(\(.*?\))\s*-->/),(&{template::gettmplsub($1)}(\$c)),qq(/gs; #)
#  $tmpl =~ s/\$/\\\$/g;
  #  warn eval('qq('.$tmpl.')');
  $tmpl = "qq($tmpl)";
  my $sub = eval("sub {
    my \$c = shift;
    my \@a = ($tmpl);
    return \\\@a;
  }"); #<------ this eval