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