#!/usr/bin/perl
use SVN::Client;
my $ctx = new SVN::Client(
   auth => [
       SVN::Client::get_simple_provider(),
        SVN::Client::get_simple_prompt_provider(
           sub {
                my $cred = shift;
                my $user = "username";
                my $pass = "password";
                $cred->username($user);
                $cred->password($pass);
               },
               2
             ),
             SVN::Client::get_username_provider()
            ]
        );
my $url = "svn://svn.test.net/test/test2";
my $path = "/test/";
my $revision = "WORKING";
$ctx->checkout($url, $path, $revision, $recursive) or die "error: $! ";