pan class="sc">;</span>
    
                <span class="c"># check the hard-coded credentials</span>
                <span class="k">if</span> <span class="s">(</span> <span class="i">$auth</span> <span class="k">ne</span> <span class="i">$token</span> <span class="s">)</span> <span class="s">{</span>
                    <span class="k">my</span> <span class="i">$response</span> = <span class="w">HTTP::Response</span><span class="w">-&gt;new</span><span class="s">(</span><span class="n">407</span><span cl