sub getauth
    {
        my $cred = shift;
        $cred->username($user);
        $cred->password($passwd);
    }
    
    
    my $ctx = SVN::Client->new
    (
        auth =>     [    SVN::Client::get_simple_provider(),
                    SVN::Client::get_simple_prompt_provider
                    (
                        \&getauth,2
                    ),
                    SVN::Client::get_username_provider()
                ],
    );