Select Code to Download

foreach my $tag ( _all_html_tags() ) {
    eval "sub $tag {
...
    }";
...
# again for end and start tags

foreach my $tag ( _all_html_tags() ) {
    *$tag = sub { return _tag_func($tag,@_); }
...

  DB<106> $tmpl = '$#abc#=15' 
 => "\$#abc#=15"
...

  DB<111> $str
 => 15

    eval sprintf <<'__CODE__', $tag;
        sub %1$s {
            "<%1$s>",@_,"</%1$s>";
        }
__CODE__