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))};