if (! $self->request->headers->authorization)
{
 use HTTP::Headers;
my $h = HTTP::Headers->new(
       Content_Type => 'text/html',
       'WWW-Authenticate' =>  'Basic realm="Secure Area"');
 print "no AUTH\n";
 return $self->response(
            HTTP::Response->new(
                401,"401 Unauthorized",$h))};
[download]

So now I'm able to send a 401-Message if there is no authorization in the header. The the client knows that it should send an authorization in the header and then I can check this in my Server-Code.

-----------------------------------
--the good, the bad and the physi--
-----------------------------------