sub prompt{
    my $self  = shift;
    my $realm = shift || "Secret Realm";
    $self->header(
        'Status'           => 401,
        'WWW-Authenticate' => qq(Basic realm='$realm')
    );
    return;
}