># the authentication filter</span>
    <span class="i">$proxy</span><span class="i">-&gt;push_filter</span><span class="s">(</span>
        <span class="w">request</span> <span class="cm">=&gt;</span> <span class="w">HTTP::Proxy::HeaderFilter::simple</span><span class="w">-&gt;new</span><span class="s">(</span>
            <span class="k">sub</span> <span class="s">{</span>
                <span class="k">my</span> <span class="s">(</span> <span class="i">$self</span><span class="cm">,</span> <span class="