$username = $r->connection->user
my($ret, $password) = $r->get_basic_auth_pw;