my($r) = shift;
$r->status_line("401");

##</code><code>##

return Apache2::Const::HTTP_UNAUTHORIZED;

##</code><code>##

return Apache2::Status::HTTP_UNAUTHORIZED;