# File lib/kwartz/binding/perl.rb, line 195
    def initialize(properties={})
      escapefunc = properties[:escapefunc] || 'encode_entities'
      marks = ['', '', 'push(@_buf, ', '); ', "push(@_buf, #{escapefunc}(", ')); ']
      super(marks, properties)
      @header = 'my @_buf = (); '  unless @header == false
      @footer = "join('', @_buf);" + @nl   unless @footer == false
    end