Help for this page
my($r) = shift; $r->status_line("401");
return Apache2::Const::HTTP_UNAUTHORIZED;
return Apache2::Status::HTTP_UNAUTHORIZED;